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1.  PURPOSE 


STAMMER  was  developed  to  serve  as  a  demonstration  of  the  applicability  of 
rule-based  inference  techniques  to  the  Tactical  Situation  Assessment  (TSA)  problem.  In 
addition,  it  serves  as  a  testbed  for  development  of  new  inference  rules  and  techniques.  To 
achieve  these  goals,  the  following  features  were  included  in  STAMMER: 

1)  A  graphics  interface.  STAMMER  uses  a  slightly  modified  version  of  DSPLA 
(Ref.  1 )  to  display  platform  tracks  and  to  provide  a  visual  presentation  of  position 
information. 

2)  Explanation  of  inference.  Whenever  the  system  uses  a  rule  to  reach  some 
conclusion,  the  user  may  examine  the  data  base,  rules,  and  derivations  to  discover  why 
the  conclusion  is  considered  valid. 

3)  Ease  of  rule  addition.  A  primary  reason  for  adopting  a  rule-based  inference 
approach  is  the  flexibility  and  ease  of  modification  that  inference  rules  provide.  A 
convenient  mechanism  for  adding  rules  makes  this  flexibility  available. 

4)  A  flexible  data  base  structure.  While  the  structure  of  the  demonstration  data 
base  is  fixed,  functions  are  provided  to  allow  redefinition  of  the  data  base  structure  for 
different  applications. 

5)  Multiple  terminal  configurations.  The  ideal  terminal  arrangement  for 
STAMMER  includes  both  a  controlling  text  terminal  and  a  slaved  graphic  display  terminal. 
However,  such  a  configuration  is  not  always  available,  so  STAMMER  has  been  designed  to 
run  in  standalone  text  and  standalone  graphics  modes  as  well  as  a  two-terminal  mode. 

6)  Demonstration  scenario.  To  make  demonstration  simple,  and  to  allow 
concentration  on  a  working  system,  a  scenario,  consisting  of  data  base  structure  definition, 
a  technical  data  base,  production  rules,  and  messages  has  been  provided.  Additionally,  an 
executable  file  containing  the  scenario  has  been  provided. 

7)  Measures  of  confidence.  Realizing  that  many  useful  rules  are  not  absolute, 
STAMMER  works  with  confidences  rather  than  logical  truth  values  in  its  inferences.  These 
confidences  are  roughly  related  to  probabilities  and  provide  a  broad  range  of  measures  for 
the  strength  of  any  conclusion. 
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II.  SYSTEM  OVERVIEW 


STAMMER  serves  as  an  organizer  of  information.  It  collects  information  by 
receiving  messages  and  radar  reports,  and  organizes  this  raw  data  into  graphic  displays  and 
textual  commentary  to  aid  in  tactical  situation  assessment.  The  organization  that 
STAMMER  performs  is  more  than  simple  formatting,  however.  Through  the  use  of 
specified  rules,  the  system  combines  information  from  messages  and  reports  to  draw 
conclusions  about  the  situation  in  the  vicinity  of  the  home  ship.  These  conclusions  are 
reflected  in  both  the  display  and  commentary.  The  system  data  base  is  available  for 
examination,  and  includes  not  only  the  original  raw  data,  but  also  information  about  why 
and  how  the  conclusions  were  reached.  - 

During  execution,  the  user  will  see  the  following  cycle  repeated  as  long  as  messages 
and  reports  are  received: 

(1)  A  message  or  report  is  received  -  the  user  is  informed,  and  the  critical  informa¬ 
tion  in  the  message  is  printed  for  reference. 

(2)  A  display,  showing  the  area  situation  with  the  new  information,  is  drawn.  The 
user  may  manipulate  this  image. 

(3)  The  system  makes  some  commentary  on  the  conclusions  it  can  reach,  on  the 
basis  of  the  new  information. 

(4)  If  any  conclusions  were  reached,  the  user  is  given  the  opportunity  to  query  the 
system  about  the  contents  of  its  data  base. 
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III.  DEMONSTRATION  SCENARIO  AND  SELECTED  EXAMPLES 

In  this  demonstration  run  we  have  used  the  following  scenario:  the  home  ship 
Perry  is  stationary  off  the  coast  of  Iceland  with  radar  on.  A  storm  covers  the  northwest 
portion  of  the  island  and  the  surrounding  ocean  area.  The  Perry  begins  to  move  towards 
St.  Johns,  roughly  paralleling  a  merchant  lane,  so  that  ships  within  the  lane  will  fall  inside 
its  radar  coverage.  Merchant3  is  travelling  in  the  lane  from  St.  Johns  to  Reykjavik.  Red  and 
Blue  are  hostile  warships  with  the  intention  of  intercepting  Merchant3.  They  attempt  to 
simulate  merchants  by  travelling  at  merchant  speed  in  two  other  lanes.  At  a  convenient 
point  they  will  make  a  sudden  dash  at  maximum  speed  to  reach  the  lane  of  interest. 

Patrol  17  flies  from  Reykjavik  to  the  southern  tip  of  Greenland,  reporting  on 
platforms  in  the  area.  The  Perry  receives  information  from  it,  from  ground-based  stations 
in  the  region,  and  from  its  own  radar.  The  system  demonstrated  is  supposed  to  be  onboard 
the  Perry ,  collating  this  information. 

It  should  be  stressed  that  the  system  has  no  knowledge  of  the  identities  of  platforms 
or  other  aspects  of  the  scenario,  other  than  that  which  it  receives  in  messages  or  deduces 
from  the  information  available  to  it. 

Comments  added  to  the  typescript  are  preceded  by  a  semi-colon.  Lines  consisting 
of  three  asterisks  indicate  sections  omitted  for  brevity. 
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>EXECUTE 


Are  you  running  on  a  Tektronix?.  . . No 

Do  you  have  a  Tektronix  available  for  display?  No 


***  WEATHER  REPORT  RECEIVED. 

Time:  O 

Storm  centered  at  65.  83.  -24.45/  approximate  diameter  175.7003 
No  rules  were  satisfied.  >no  deductions  triggered  at  this  point. 

♦♦♦MESSAGE  RECEIVED.  Message  number  1 
Time:  360 

Concerns  a  new  platform.  Assigned  working  name  MERCHANT3 
Content: 

(CATEGORY:  MERCHANT  SPEED:  10  LATITUDE:  62.97  LONGITUDE:  -26.73  TOS:  180 
SOURCE:  EXTERNAL)  /the  message  identifies  the  platform 

i as  a  merchant. 

1.  NON-COMBATANT  is  the  WARLIKE  of  MERCHANT3  /deductions  from  the 

i technical  database/ 

2.  CIVILIAN  is  the  TYPE  of  MERCHANT3  i  since  it  is  known 

/  the  platform  is  a 

3.  SURFACE  is  the  MEDIUM  of  MERCHANT3  ; merchant. 

4.  COMBATANT  is  not  the  WARLIKE  of  MERCHANT3 

5.  AIR  is  not  the  MEDIUM  of  MERCHANT3 

6.  S I GHT I NG034 1  is  INSIDE-A-MERCHANTLANE 

Explanation  system 

Type  HELP  for  help/  CR  to  exit. 

QUESTION  ? 

Leaving  EXPLAIN. 
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♦♦♦MESSAGE  RECEIVED.  Message  number  2 


Time:  400 

Concerns  a  new  platform.  Assigned  working  name  BLUE 
Content: 

(TOS:  150  LATITUDE:  61.8  LONGITUDE:  -20.87  SOURCE:  EXTERNAL) 


1.  SIGHT I NG0380  is  INSIDE-A-MERCHANTLANE 

i  the  system  has  assigned  the  name  sighting0380  to  the  sighting 
i  just  received  and  observes  that  it  is  in  a  merchant  lane. 

Explanation  system 

Type  HELP  for  help<  CR  to  exit. 

QUESTION  ?  Tell  me  about  MERCHANTLANE 


1. 

LANE1 

is 

a 

MERCHANTLANE 

2. 

LANE2 

i  s 

a 

MERCHANTLANE 

3. 

LANE3 

is 

a 

MERCHANTLANE 

QUESTION  ? 
Leaving  EXPLAIN. 
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***RADAR  REPORT. 


Tim*:  420 

Location:  Rang*:  26.  15674  Bearing:  290.  5145 

Assumed  to  be  a  new  contact,  assigned  working  name  C0NTACT1 

.this  is  a  radar  sighting  of  MERCHANT3.  although  the  system 
»  does  not  know  it. 

1.  SIGHTING0400  is  INSIDE-A-MERCHANTLANE 

2.  MERCHANT  is  somewhat  likely  to  be  the  CATEGORY  of  C0NTACT1 
because  no  known  combatant  could  have  reached  it. 

3.  NON-COMBATANT  is  somewhat  likely  to  be  the  WARLIKE  of  C0NTACT1 

4.  CIVILIAN  is  somewhat  likely  to  be  the  TYPE  of  C0NTACT1 

5.  SURFACE  is  somewhat  likely  to  be  the  MEDIUM  of  C0NTACT1 

6.  COMBATANT  is  somewhat  unlikely  to  be  the  WARLIKE  of  C0NTACT1 

7.  AIR  is  somewhat  unlikely  to  be  the  MEDIUM  of  C0NTACT1 

.since  the  system  has  deduced  some  likelihood  of  contactl 
.being  a  merchant,  it  extends  this  likelihood  to  include 
. the  properties  of  merchants,  as  given  in  the  technical 
. data  base. 


Explanation  system 

Type  HELP  for  help.  CR  to  exit. 

QUESTION  ?  WHY  (ready  to  be  asked  about  an  assertion)  4 


1.  ID8  .a  system  rule,  used  to  implement  the  technical  data  base. 
QUESTION  ?  WHY  (ready  to  be  asked  about  a  rule) 


1.  CONTACT 1  is  a  PLATFORM 

2.  MERCHANT  is  somewhat  likely  to  be  the  CATEGORY  of  C0NTACT1 

3.  CIVILIAN  is  the  TTYPE  of  MERCHANT  ; item  in  technical  data  base 

Do  you  want  to  know  about  any  of  these?  No 


QUESTION  ? 
Leaving  EXPLAIN. 
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061-43H  | _ 

027-02M 


023-41M 


023-80W 


022- 19H 


020-38H 


***radar  report. 


Time:  440 

Location:  Rang*:  21.7085  Bearing.  309.0736 
Assumed  to  ba  C0NTACT1 

1.  MERCHANT  is  vary  probably  the  CATEGORY  of  C0NTACT1 
because  its  course  and  speed  match  those  of  a  known  merchant. 

; the  "very  probably”  indicates  the  CUMULATIVE  effect  of  the 
i evidence  thus  far. 

2.  SIGHTING0434  is  INSIDE-A-MERCHANTLANE 

Explanation  system 

Type  HELP  for  help.  CR  to  exit. 

QUESTION  ?  WHY  (ready  to  be  asked  about  an  assertion)  1 

; i. e.  summarize  the  evidence  for  the  assertion  in  1. 

1.  A-MATCH-FOR-A-KNOWN-MERCHANT  i these  are  the  rules 

2.  NOT-REACHABLE-BY-ANY-COMBATANT  i  that  were  used. 

QUESTION  ?  WHY  (ready  to  be  asked  about  a  rule)  1 

1.  CONTACT 1  is  a  CONTACT 

2.  MERCHANT3  is  a  MERCHANT 

3.  S I GHT I NG0434  is  the  LAST-SIGHTING  of  C0NTACT1 

4.  63.  37  is  the  LATITUDE  of  SIGHTING0434 

5.  -25.41  is  the  LONGITUDE  of  SIGHTING0434 

6.  55.  53572  is  the  COURSE  of  SIGHTING0434 

7.  10. 45755  is  the  SPEED  of  SIGHTIN0O434 

8.  440  is  the  TIME  of  SIGHTING0434 

9.  S I GHT I NG034 1  is  the  LAST-SIGHTING  of  MERCHANTS 

10.  ISO  is  the  TIME  of  SIGHTING0341 

11.  62.97  is  the  LATITUDE  of  SIGHTING0341 

12.  -26.  73  is  the  LONGITUDE  of  SIGHTING0341 

13.  55.53572  is  ROUGHLY-THE-SAME-COURSE-AS  55.53572 

14.  10.45755  is  ROUGHLY-THE-SAME-SPEED-AS  9.935611 

15.  10.45755  is  not  LESS-THAN  9 

16.  10.  45755  is  not  GREATER-THAN  25 

.these  describe  in  detail  the  conditions  that  caused  the 
.rule  to  fire  (succeed). 

Do  you  want  to  know  about  any  of  these?  No 

QUESTION  ?  Is  C0NTACT1  HOSTILE 

not  to  my  knowledge  i merchants  may  or  may  not  be  hostile. 

QUESTION  ? 

Leaving  EXPLAIN. 


#  *  * 


***MESSAGE  RECEIVED.  Message  number  4 
Time:  510 

New  message  concerning  RED 
Content: 

< TOS :  210  LATITUDE:  65.7  LONGITUDE:  -26.61  SOURCE.  EXTERNAL) 


1.  MERCHANT  is  somewhat  unlikely  to  be  the  CATEGORY  of  RED 
because  its  track  crosses  a  storm. 

2.  SIGHTING0521  is  INSIDE-A-MERCHANTLANE 

Explanation  system 

Type  HELP  for  help#  CR  to  exit. 

QUESTION  ?  Tell  me  about  STORM 


1.  ST0RM0295  is  a  STORM  .lists  the  storms. 

QUESTION  ?  WHERE  is  S0295 

The  following  is  a  list  of  lat-lon  pairs  defining  the  edge  of  the 
(<64.67  -25.66)  <64.67  -22.12)  <65.46  -20.68)  <66.5  -21.57)  < 
67.11  -24.48)  <66.88  -27.41)  <65.99  -28.45)  <65.3  -27.75)) 

>  the  storm  would  also  be  plotted  if  the  display  were  on. 


QUESTION  ? 
Leaving  EXPLAIN. 


storm. 


14 


067-09H 


15 


t 

i 


i 


L 


*  *  * 


♦♦♦MESSAGE  RECEIVED.  Message  number  8 
Time:  685 

New  message  concerning  RED 
Content: 

(LATITUDE:  63.  SI  LONGITUDE:  -27.95  TOS:  615  SOURCE:  PATROL 17  CLASS: 
KYNDA) 

<this  message  identifies  RED  as  a  hostile  warship.  KYNDA  class. 


♦♦♦RADAR  REPORT. 

Time:  695 

Location:  Range:  32.  19589  Bearing:  137.  7162 

Assumed  to  be  a  new  contact*  assigned  working  name  C0NTACT2 

i this  is  actually  a  radar  sighting  of  BLUE. 

1.  MERCHANT  is  somewhat  unlikely  to  be  the  CATEGORY  of  C0NTACT2 
because  it  popped  up  outside  normal  merchant  range. 

2.  MERCHANT  is  somewhat  unlikely  to  be  the  CATEGORY  of  C0NTACT2 
because  it  lies  outside  all  known  merchant  lanes. 

Explanation  system 

Type  HELP  for  help.  CR  to  exit. 

QUESTION  ?  WHY  (ready  to  be  asked  about  an  assertion)  1 


1.  A-D I ST ANT-POPUP 

2.  OUTSIDE-ALL-MERCHANTLANES 

QUESTION  ?  WHY  (ready  to  be  asked  about  a  rule)  1 


1  C0NTACT2  is  a  CONTACT 

2.  S I OHT I NG0664  is  the  FIRST-SIGHTING  of  C0NTACT2 

3.  32.  19589  is  the  RANGE  of  SIGHTING0664 

4.  32.  19589  is  GREATER-THAN  30 

Do  you  want  to  know  about  any  of  these?  No 


QUESTION  ? 

Leaving  EXPLAIN. 
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£fONTACT2 


##*RADAR  REPORT. 


Time:  70S 

Location:  Rang*:  26.  82486  Bearing:  133. 1563 
Assumed  to  be  CONTACT2 


1.  MERCHANT  is  probably  not  the  CATEGORY  of  C0NTACT2 

because  its  speed  is  greater  than  maximum  merchant  cruise  speed. 

2.  MERCHANT  is  probably  not  the  CATEGORY  of  C0NTACT2 
because  it  lies  outside  all  knoun  merchant  lanes. 

; the  evidence  mounts  that  C0NTACT2  is  not  a  merchant. 
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*  *  * 


***RADAR  REPORT. 

T ime:  720 

Location:  Range:  25.51945  Bearing:  336.6366 

Assumed  to  be  a  new  contact/  assigned  working  name  C0NTACT3 

; contacts  is  really  a  radar  sighting  of  RED. 

t.  MERCHANT  is  somewhat  unlikely  to  be  the  CATEGORY  of  C0NTACT3 
because  it  lies  outside  all  known  merchant  lanes. 

Explanation  system 

Type  HELP  for  help>  CR  to  exit. 

QUESTION  ?  WHAT  is  THE  FIRST-SIGHTING  OF  C0NTACT3 
1.  SIGHT ING0737 

QUESTION  ?  Is  S I GHT I NG0737  REACHABLE-BY-A-COMBATANT 
yes 

QUESTION  ?  WHOSE  WITHIN-REACH  is  SIGHTING0737 

1.  not  S I GHT I NG0562 

2.  S I  GHT  I NG06 1 3 

QUESTION  ?  WHOSE  SIGHTING  is  SIGHTING0562 
1.  BLUE 

QUESTION  ?  WHOSE  SIGHTING  is  SIGHTING0613 
1.  RED 


/although  the  system  is  intended  only  to  detect  non-merchants/ 

#  here  the  operator  has  effectively  made  use  of  it  to  suggest  the 
i identity  of  C0NTACT3. 

QUESTION  ? 

Leaving  EXPLAIN. 
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061-40N  I _ 

029-32M 


027-86H 


026-39M 


024-92H 


023-46M 


*  *  * 


♦•♦MESSAGE  RECEIVED.  Message  numbtr  10 
Time:  747 

Concerns  a  new  platform.  Assigned  working  name  PATR0L17 
Content: 

(TOS.  600  LATITUDE:  64.33  LONGITUDE.  -22.24  SOURCE.  EXTERNAL  NAME:  HUMMER 
CLASS:  F16-A  CATEGORY:  FIGHTER) 

*  #  * 

Explanation  system 

Type  HELP  for  help.  CR  to  exit. 

QUESTION  7  WHOSE  SOURCE  is  PATR0L17 

1.  SIGHTING0613 

2.  S I CHT I NG0594 

QUESTION  7  WHOSE  SIGHTING  is  SIGHTINC0613 
1  RED 

QUESTION  7  WHOSE  SIGHTING  is  SIGHTING0594 

1 .  MERCHANT 3 

QUESTION  7 
Leaving  EXPLAIN. 
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••♦MESSAGE  RECEIVED.  Message  number  14 
Time:  748 

New  message  concerning  PATROL17 
Content: 

(SOURCE:  EXTERNAL  TOS:  645  LATITUDE:  61.77  LONGITUDE:  -37.97) 
Beyond  area  of  interest.  Ignored. 

i the  patrol  has  now  moved  out  of  range. 


i  at  the  end  of  the  run.  u/e  summarize  the  conclusions 

Explanation  system 

Type  HELP  for  help.  CR  to  exit. 

QUESTION  ?  WHAT  is  C0NTACT3 

1.  almost  certainly  not  MERCHANT 

QUESTION  ?  WHAT  is  C0NTACT2 

1.  definitely  not  MERCHANT 

QUESTION  ?  WHAT  is  CONTACT1 

1.  somewhat  likely  to  be  MERCHANT 

QUESTION  ? 

Leaving  EXPLAIN. 

No  more  messages. 

>QUIT 

LEAVING  STAMMER TOP 
NIL 
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PATROL  17 


IV.  USER’S  GUIDE 


DEMONSTRATION  SYSTEM 

To  run  the  demonstration  system,  type  RUN  STAMMERfCR] .  Answer  the 
questions  about  terminal  configuration  and  a  map  with  Y  for  yes  and  N  for  no. 

When  a  display  appears,  you  may  use  any  of  the  DSPLA  function  key  commands 
listed  in  appendix  A  to  manipulate  the  picture. 

When  the  system  enters  explanation  mode,  you  may  ask  questions  to  explore  the 
data  base  and  to  trace  the  derivation  of  conclusions. 

EXPLAIN  is  provided  to  allow  you  to  ask  questions  about  the  contents  of  the  data 
base  (memory)  and  how  they  got  there.  Question  forms  are: 

1.  WHO  is 

2.  WHAT  is 

3.  WHOSE 

4.  WHERE  is 

5.  WHY 

6.  Is 

7.  Tell  me  about 

8.  Display  command  level 

9.  OK 

10.  Zap 

1 1 .  Help 

1 2.  New  rule  definition 

Typing  a  carriage  return  to  a  QUESTION  ?  prompt  will  cause  an  exit  from 
EXPLAIN. 

Information  in  the  data  base  is  represented  in  the  form 
[ITEM]  [RELATION]  [ITEM] 

Most  explanation  facilities  are  geared  to  letting  you  find  out  what  is  in  one  of  these 
slots,  given  fillers  of  the  others.  For  instance,  WHO  and  WHAT  return  the  first  ITEM  in  all 
assertions  whose  RELATION  and  second  ITEM  are  those  given.  WHOSE  returns  a  second 
ITEM,  given  a  RELATION  and  a  first  ITEM.  Is  will  respond  to  the  presence  or  absence  of 
a  fully  specified  assertion  in  the  data  base. 

EXPLAIN  has  been  designed  to  make  user  interface  relatively  easy.  At  most  points, 
typing  ?  will  give  a  list  of  possible  next  entries,  and  ESC  may  be  used  to  complete  unambig¬ 
uous  words,  or  fill  in  unambiguous  characters.  To  help  the  system  function  properly,  please 
give  it  time  to  do  its  job.  Unacceptable  characters  are  not  echoed  (the  bell  rings),  as  is  the 
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case  with  excessive  typeahead.  If  asked  to  (confirm) .  type  a  space.  Please  end 
questions  with  a  carriage  return. 

WHO  is 

Format:  WHO  is  (THE,  A,  AN)  (RELATION)  (OF)  [ITEM) 

(a,  an,  the,  and  of  are  optional) 

Examples:  WHO  is  LESS-THAN  7 

WHO  is  INSIDE  STORMOOOS 

Some  relations  do  not  require  that  an  item  be  specified.  At  present,  these 
are  INSIDE-A-MERCHANTLANE  and  REACHABLE-BY-A-COMBATANT 
For  these  relations,  the  command  looks  like 

WHO  is  INSIDE-A-MERCHANTLANE 
For  related  queries,  see  WHOSE  and  WHAT. 

WHAT  is 

Format:  WHAT  is  (THE.  AN.  A)  (RELATION)  (OF)  (ITEM) 
Example:  WHAT  is  THE  LATITUDE  OF  POSITION03 1  2 

As  with  WHO.  the.  an,  a.  and  of  are  optional,  and  an  item  is  not  required 
with  the  relations  REACHABLE-BY-A-COMBATANT  and  INSIDE-A- 
MERCHANTLANE. 

WHOSE 

Format:  WHOSE  ( RELATION )  is  [ ITEM] 

WHOSE  is  roughly  the  inverse  of  WHAT,  e.g..  if  WHAT  is  THE  POSITION 
OF  SIG HTING0027  is  answered  with  POSITION0026.  then  WHOSE 
POSITION  is  POSITION0026  will  answer  SIGHTING0027. 

WHERE  is 

Format:  WHERE  is  (OBJECT] 

Example:  WHERE  is  CONTACT7 

Acceptable  objects  are  platforms,  merchantlanes.  and  storms. 

WHY 


Format:  WHY  (NUMBER) 
Example:  WHY  3 


In  reply  to  WHO,  WHAT.  WHOSE,  and  some  Tell-me-about  questions,  you 
will  be  presented  with  a  numbered  list  of  answers.  To  follow  the  derivation 
of  any  ot  these,  ask  WHY  followed  by  the  number  of  the  answer  of  interest 
You  will  then  be  given  a  list  of  productions,  if  the  answer  was  deduced  by 
the  system  (not  taken  from  a  message  or  the  technical  data  base).  If  such  a 
list  appears,  you  can  do  a  WHY  to  it  to  view  the  information  which  enabled 
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the  rule.  The  chain  of  WHYs  may  be  extended  indefinitely,  alternating 
between  data  and  rules.  See  the  OK  and  Zap  commands  for  further  refine¬ 
ments. 

Is 

Formats:  Is  (THE,  A,  AN)  (RELATION)  (OF)  (ITEM)  [ITEM) 

Is  (THE)  (ITEM)  (A,  AN.  THE)  [RELATION]  (OF)  [ ITEM  1 
Is  (THE)  (PLATFORM]  (A)  [ID  INFO] 

Examples:  Is  THE  LATITUDE  OF  POSITION0035  -1.22 
Is  RADAR  THE  SOURCE  OF  SIGHTING0342 
Is  KYNDA2  HOSTILE 

Is  checks  to  see  if  a  given  assertion  is  in  the  data  base.  A.  an,  the,  and  of  are 
optional.  Is  is  fairly  flexible  in  format  to  allow  more  natural  phrasing.  In 
addition,  identification  information  (name,  class,  category,  flag,  medium, 
type,  hostility,  etc.)  is  directly  available,  without  the  need  to  give  the  inter¬ 
vening  relation. 

Tell  me  about 

Format:  Tell  me  about  [SOMETHING] 

Tell  me  about  [GROUP]  [NUMBER] 

Examples:  Tell  me  about  MERCHANTS 
Tell  me  about  RULE  5 

Tell  me  about  is  probably  the  most  flexible  command.  In  the  first  format, 
you  may  ask  about  a  wide  range  of  things,  including  ITEMs.  PRODUCTIONS 
(RULES),  or  any  subtype  (MERCHANTS,  COMBATANTS.  CONTACTS. 
PATROLS).  Using  the  second  format,  you  may  examine  the  details  of  a 
particular  message  or  rule  (production)  referred  to  by  number. 

Display  command  level 

Format  and  example:  Display  command  level 

If  you  have  a  display  available,  this  pseudo-query  will  give  access  to  the  top 
level  of  DSPLA  to  permit  drawing  rhumb  lines  and  such  like.  If  you  are 
running  on  a  Tektronix  in  single  terminal  mode,  you  will  have  to  give  the  top 
level  DSPLA  command  Q  to  return  to  EXPLAIN. 

OK 

Format  and  example:  OK 

OK  is  a  useful  part  of  the  WHY  feature.  WHY  functions  by  maintaining  a 
context  stack  of  “active”  answers.  OK  pops  this  stack  to  allow  you  to  ask 
about  a  different  answer  in  a  list  you’ve  already  asked  WHY  of. 


Zap 

Format  and  example:  Zap 

Zap  is  the  ultimate  OK.  It  clears  the  WHY  context  stack  completely. 

HELP 

Format  and  example:  HELP 

HELP  calls  the  help  function  that  prints  a  brief  summary  of  each  command, 
along  with  examples. 

New  rule  definition 

Format:  New  rule  definition 
Example:  New  rule  definition 
Rule  name?  RULE5 
Text? 

:  IF  *X  IS  A  STORM 
:  AND  *Y  IS  A  CONTACTS 
:  AND  *Z  IS  A  SIGHTING  OF  *Y 
:  AND  *Z  IS  INSIDE  *X 

:  THEN  MERCHANT  IS  THE  CATEGORY  OF  *Y 

Confidence?  .35 

RULE5 

The  name  of  a  rule  may  be  any  LISP  atom,  f  are  should  be  taken  to  avoid 
conflicts  with  existing  rule  names,  which  may  be  listed  using  the  Tell  me 
about  RULES  query. 

The  text  of  a  rule  ;s  made  up  of  a  number  of  lines,  each  of  which  is  a 
condition  or  an  action.  No  rule  may  have  more  than  one  action,  and 
conditions  must  precede  actions.  Conditions  are  Ragged  with  the  words  IF, 
AND  or  UNLESS,  and  actions  are  (lagged  with  the  word  THEN.  Lines  of  a 
rule  are  generally  of  the  form: 

[ Hag  word  |  [item  J ( IS.  A,  AN,  THE)[relation|(OF)[item  | 

Items  may  be  either  variables  or  basenodes.  Variables  are  flagged  by 
beginning  them  with  an  asterisk.  There  are  two  other  formats  which  may 
occur  in  rule  lines.  These  are: 

|  flag  word  1 1  item  |(  IS,  A,  AN,  THE)[ special  item  |  and 
(flag  word]  [ item ] ( IS) [ special  relation | 

Special  items  are  all  members  of  SUBTYPES  (CONTACTS,  COMBATANTS, 
etc.)  plus  STORM  and  PLATFORM.  Special  relations  are  INSIDF-A- 
MERCHANTLANF  and  REACHABL  F-BY-A-COMBATANT. 
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The  confidence  of  a  rule  should  be  a  number  between  1 .0  and  - 1 .0.  Use 
of  recognition  is  supported  during  text  input,  and  ?  will  respond  with  a  list  of 
expected  entries,  except  during  variable  names. 

To  leave  the  system  at  an  intermediate  point,  type  two  control-Cs.  If  you  come  to 
the  end  of  the  messages,  type  QUIT[CR]  followed  by  control-C  to  exit. 

Running  From  Scratch 

The  following  files  hold  the  code  for  the  STAMMER  system: 

NEWSNET.COM 

STAMMER.COM 

EXPLAIN.COM 

SUPP.COM 

DSPLA.COM 

FORK.COM 

WITHINR.COM 

These  files  must  all  be  loaded  (in  the  order  given  above)  for  STAMMER  to  function 
properly.  The  easiest  way  to  do  this  is  to  load  the  file  FASTSAPS,  which  will  load  the  other 
files.  This  will  give  you  an  empty  STAMMER,  ready  for  initialization  and  experimentation. 

The  memory  structure,  contents,  productions  and  messages  which  make  up  the 
demonstration  system  are  contained  in  the  files 

STRUCT.COM 
STMEM.LSP 
STPROD.LSP,  and 
STMSG.LSP 

respectively,  and  may  be  loaded  directly.  If  you  wish  to  load  STAMMER  with  the 
demonstration  scenario,  load  QKTEST  in  place  of  FASTSAPS. 

Once  the  system  is  loaded,  execute  the  function  STAMMERTOP  with  no  arguments 
to  reach  the  STAMMER  executive.  Typing  EXECUTE[CR]  at  this  point  will  begin  execu¬ 
tion  of  the  demonstration  scenario. 
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V.  DESIGN 


The  critical  aspects  of  STAMMHR's  design  may  he  divided  into  four  parts.  These 
are  memory  (the  database),  rule  interpretation,  explanation,  and  graphics.  Following  is  a 
discussion  of  the  design  of  each  of  these  parts. 

MEMORY 

Memory  in  STAMMER  consists  of  ASSERTIONS  which  are  made  up  of  two 
BASENODES  and  a  RELATION.  Assertions  are  of  the  form  aRb  (read  “a  is  an  R  of  b”). 
where  a  and  b  are  the  basenodes  and  R  is  a  relation.  The  relations  that  may  be  used  in 
assertions  are  restricted  to  a  predefined  (and  expandable)  set.  It  is  possible  to  add  assertions 
to  and  delete  assertions  from  memory  and  to  retrieve  assertions  and  basenodes  from  memory. 

The  actual  implementation  of  assertion  structures  is  accomplished  through  a  package 
of  network  manipulation  functions  called  SNET  and  is  relatively  unimportant,  with  two 
exceptions.  The  first  is  that  SNET  creates  a  unique  identifier  for  each  assertion.  Second. 
SNET  labels  each  element  of  an  assertion  in  the  following  way:  for  the  example  aRb.  a  is 
said  to  be  ONE  of  the  assertion,  b  the  TWO,  and  R  the  RELATION.  This  terminology  will 
be  used  hereafter. 

The  data  base  is  divided  into  two  sections,  dynamic  and  virtual.  Whether  a 
particular  assertion  is  dynamic  or  virtual  depends  on  its  relation.  To  save  space,  some 
common  relations  (such  as  LESS-THAN)  are  implemented  as  LISP  functions,  which  take 
basenodes  as  arguments.  These  relations  are  called  ORACLES,  and  are  computed  rather 
than  retrieved  from  memory  .  The  savings  in  space  comes  from  eliminating  the  large  number 
of  assertions  which  would  be  required  to  represent,  for  example,  all  possible  LESS-THAN 
relations.  Assertions  which  have  an  oracle  as  their  relation  are  said  to  be  virtual,  while  those 
whose  relations  are  not  oracles  are  dynamic. 

Every  assertion  has  some  confidence  associated  with  it.  This  confidence  is  based  on 
the  source  of  the  assertion.  Assertions  created  by  message  receipt  and  oracles  have  confi¬ 
dences  tixed  at  1.0.  while  assertions  created  by  rule  f  iring  have  confidences  based  on  their 
derivations.  It  is  important  to  note  a  distinction  between  assertions  and  confidences.  Asser¬ 
tions  are  statements  about  objects,  while  confidences  arc  statements  about  assertions.  For 
this  reason,  assertions  may  be  referred  to  as  First-order  knowledge,  and  confidences  as 
second-order  knowledge. 

There  are  a  number  of  functions  provided  for  manipulating  assertions.  These  fall 
into  the  categories  suggested  by  the  operations  of  creation,  deletion,  and  retrieval.  Creation 
functions  include  ASSERT,  (  ASSERT.  STATE,  and  DENY.  ERASE  I  is  the  deletion 
function.  Retrieval  is  performed  by  RETRIEVE:.  RETRIEVE 2 B.  RETR1EVE2S. 
RETRIEVE2BS,  RETRIEVE.!,  and  RETRIEVED 

Th  e  assertion  functions  have  the  property  of  never  creating  duplicates.  If  an  asser¬ 
tion  already  exists,  its  identifier  is  returned  as  the  result  of  a  creation  attempt. 
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RULE  INTERPRETATION 


Conceptually,  the  inference  rules  are  very  simple.  Every  rule  attempts  to  retrieve 
information  from  memory  and,  if  it  succeeds,  constructs  a  new  assertion  in  memory.  The 
retrievals  are  called  conditions,  and  the  construction  specification  is  called  the  action.  This 
view  of  rules  is  straightforward,  but  does  not  consider  the  complications  introduced  by 
variables  and  conditions  that  are  not  simple  conjunctions. 

Conditions  may  bind  variables  to  the  results  of  their  retrievals.  These  bindings  may 
be  used  by  later  conditions  to  constrain  their  retrievals.  If  retrievals  had  only  one  possible 
answer,  variable  binding  would  present  no  problem.  However,  many  retrievals  will  return 
a  number  of  answers  from  memory,  and  it  is  desirable  to  carry  all  of  these  possibilities 
forward  so  that  one  application  of  a  rule  will  find  all  possible  conclusions. 

The  method  chosen  for  handling  the  problem  of  multiple  bindings  is  backtracking. 
At  every  binding  point  (occurrence  of  a  new  variable),  the  possible  values  for  the  variable 
are  collected  (retrieved).  One  value  is  selected,  and  the  remaining  conditions  are  evaluated 
using  a  binding  of  the  variable  to  that  value.  Upon  failure  of  a  condition  or  successful 
construction  of  a  conclusion,  evaluation  backs  up  to  the  last  binding  point  and  selects  a 
new  value,  then  proceeds  forward.  When  the  possible  bindings  for  a  variable  are  exhausted, 
evaluation  backs  up  to  the  preceding  binding  point.  When  the  topmost  binding  point  has 
finished  with  all  possible  values,  evaluation  of  the  rule  is  complete.  Earlier,  it  appeared  that 
a  backtracking  mechanism  would  be  unnecessarily  cumbersome,  but  clever  application  of 
recursive  function  calls  and  mapping  functions  have  simplified  the  mechanism  considerably. 

There  are  several  other  aspects  of  rule  evaluation  that  are  important  to  the  function¬ 
ing  of  the  system.  The  first  is  the  interaction  of  confidence  measures  and  the  success  of 
conditions.  Conditions  in  STAMMER  rules  may  be  either  positive  or  negative.  Positive 
conditions  succeed  if  there  is  any  answer  to  a  retrieval  request  with  confidence  greater  than 
0.0.  Negative  conditions  fail  if  there  is  any  answer  to  a  retrieval  request  with  confidence 
greater  than  0.0.  Failure  to  retrieve  an  assertion  is  assumed  to  be  confidence  0.0.  It  is 
possible  to  remove  the  positive  confidence  restriction  on  positive  conditions  and  still 
expect  the  system  to  work.  However,  doing  so  amounts  to  declaring  the  converses  of  all 
rules  to  be  true,  which  unfortunately  is  not  the  case  in  general.  Rather  than  accept  cheap 
but  occasionally  faulty  converses,  the  user  is  required  to  explicitly  state  converse  rules. 

Another  issue  relates  duplication  of  conclusions  and  the  construction  of  derivation 
trees.  When  a  conclusion  is  added  to  the  network  (memory),  a  derivation  tree  containing 
the  rule  name  and  the  assertions  that  satisfied  the  rule's  conditions  is  added  to  the  network 
and  associated  with  the  assertion.  This  derivation  tree  performs  three  functions.  It  is  used 
to  provide  a  trace  of  inferences  for  explanation;  it  is  used  to  derive  the  confidence  in  the 
conclusion;  and  it  serves  to  prevent  duplications  of  conclusions.  Before  a  conclusion  is 
actually  constructed,  the  would-be  contents  of  its  derivation  tree  are  compared  with  the 
derivations  of  that  assertion  which  already  exist,  if  any.  If  any  of  the  existing  derivations 
matches  the  derivation  under  consideration,  the  conclusion  is  not  constructed,  and  the 
existing  binding  set  fails.  This  arrangement  permits  an  assertion  to  be  the  conclusion  of 
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several  rules,  or  even  of  a  single  rule  with  different  assertions  satisfying  its  conditions,  but 
prevents  a  rule  from  firing  again  and  again  based  on  the  same  evidence. 

In  the  interest  of  efficiency,  two  further  refinements  have  been  added  to  the  rule 
evaluation  procedure.  The  first  of  these  concerns  rule  selection,  and  the  second  limits  the 
assertions  that  are  considered  by  the  conditions. 

The  original  rule  selection  mechanism  in  STAMMKR  was  a  simple  list  of  rule  names, 
which  were  tested  in  order  until  a  rule  succeeded  or  all  rules  failed.  When  a  rule  succeeded, 
the  process  started  again  from  the  beginning  of  the  list.  If  all  failed,  evaluation  stopped. 

This  meant  that  every  time  a  rule  fired,  the  rules  at  the  beginning  of  the  list  were  evaluated 
again.  The  first  attempt  to  improve  upon  this  inefficient  process  reorganized  the  rules  into 
an  effectively  circular  list,  and  instead  of  starting  evaluation  at  the  head  of  the  list  upon 
achieving  success  merely  went  on  to  the  next  rule  in  order.  Evaluation  was  halted  when  all 
rules  had  been  evaluated  without  succeeding  since  the  last  success.  While  this  change  brought 
some  improvement,  the  increased  speed  was  primarily  an  artifact  of  the  particular  rule  set 
in  use,  since  the  two  arrangements  are  essentially  identical,  being  linear  searches  of  a  list. 

A  major  improvement  has  been  made  by  adding  information  about  the  rules  to  the  evalua¬ 
tion  process.  Certain  rules,  once  tried,  will  never  again  be  satisfied  until  another  message  or 
report  is  received.  After  evaluating  these  rules  once,  they  can  be  (temporarily)  removed 
from  the  rule  list,  thus  decreasing  the  length  of  the  list  that  is  tested  sequentially,  resulting 
in  a  noticeable  improvement  in  execution  time.  However,  this  improvement  is  possible  only 
through  the  inclusion  of  “meta”  information  about  the  structure  of  rules  and  particular  rule 
sets.  This  information  is  not  derived  automatically  at  present,  but  must  be  added  by  hand 
to  appropriate  rules. 

Another  type  of  meta  information  is  used  automatically  to  reduce  the  number  of 
assertions  that  are  considered  by  each  condition.  The  idea  underlying  this  refinement 
(which  has  resulted  in  a  better  than  ten-to-one  increase  in  execution  speed)  is  one  of  context. 
At  any  point  in  the  system’s  execution,  many  assertions  need  not  be  considered  as  candidates 
for  conditions  because  they  have  been  used  in  the  past.  However,  distinguishing  "interest¬ 
ing”  from  "uninteresting"  assertions  is  no  easy  task.  The  following  steps  illustrate  the 
reasoning  behind  the  context  mechanism  that  STAMMER  employs: 

1)  Consider  a  state  of  the  network.  Try  to  fire  rules.  Some  may  succeed,  others 
fail.  Keep  trying  until  all  fail.  At  this  point,  no  rule  will  fire  until  new  assertions  are  added 
to  memory. 

2)  At  the  start  of  a  STAMMER  run,  no  rules  can  fire  until  a  message  or  report  is 
received.  (This  corresponds  roughly  to  the  base  step  of  an  induction,  with  the  rest  of  the 
points  providing  the  induction  step.) 

3)  Add  some  new  assertions  through  message  receipt.  Now  the  only  rule  firings 
that  can  occur  are  those  that  use  the  new  assertions  to  satisfy  at  least  one  of  their 
conditions. 


4)  For  those  conditions  satisfied  by  new  assertions,  old  assertions  may  also  provide 
possible  bindings.  But  if  the  bindings  provided  by  old  assertions  were  to  succeed,  they  would 
have  done  so  before  the  new  assertions  arrived.  They  didn’t  so  you  can  ignore  the  bindings 
provided  by  old  assertions  in  conditions  where  new  assertions  are  available. 

With  some  minor  adjustments,  this  argument  summarizes  the  approach  used.  The 
message  monitor  and  the  conclusion  building  mechanism  add  their  assertions  to  the  context, 
which  is  cleared  before  each  message  receipt.  In  evaluating  a  condition,  its  retrieval  is 
performed.  If  any  new  assertion  is  included  in  the  retrieval,  only  new  assertions  are 
considered  for  that  condition.  Otherwise,  all  retrievals  are  considered. 

In  practical  terms,  this  means  that  the  system  concentrates  on  what  it  just  learned 
about,  without  wasting  time  trying  possibilities  that  failed  in  the  past  and  haven’t  changed. 
The  improvement  in  performance  is  significant. 

This  method  of  controlling  ineffective  inferences  works  only  so  long  as  all  rules  have 
a  chance  to  fire  at  all  times  (on  all  new  information  receipts).  If  a  new  rule  is  defined  in  the 
middle  of  a  run,  it  would  not  have  a  chance  to  be  applied  to  information  that  was  added  to 
memory  before  its  definition.  To  avoid  missing  inferences  when  new  rules  are  defined,  part 
of  the  rule-definition  procedure  is  an  application  of  the  new  rules  to  the  existing  memory 
with  the  context  cleared.  Since  no  assertions  are  marked  as  new,  no  “new”  assertions  can 
block  the  use  of  old  assertions  in  satisfying  the  rule,  so  all  possible  conclusions  are  derived. 

EXPLANATION 

The  explanation  system  provides  two  primary  capabilities  -  retrieval  of  memory 
contents  and  inference  tracing.  In  support  of  the  user  interface,  there  are  two  features  of 
the  system  that  have  been  concentrated  on  in  design. 

Retrieving  memory  contents  is  a  relatively  easy  task,  since  functions  for  the 
retrievals  already  exist.  Similarly,  since  derivations  are  also  a  part  of  the  system  memory 
(created  by  conclusions),  tracing  a  derivation  presents  no  major  computational  problems. 

The  problem  in  explanation  lies  in  providing  a  “comfortable”  format  for  the  user  to  phrase 
queries.  To  make  the  user  interface  as  natural  as  possible,  the  explanation  system  provides 
a  query  language  that  is  “English-like.”  This  language  is  an  extremely  limited  version  of 
English,  which  includes  only  certain  types  of  questions  and  methods  of  phrasing  those 
questions.  However,  the  language  was  designed  so  that,  while  limited,  it  is  sufficient  to 
cover  the  user’s  needs  without  making  its  shortcomings  apparent. 

Using  a  natural  language-like  language  is  helpful  in  encouraging  an  intuitively  simple 
user  interface,  but  obviously  creates  some  problems.  The  problem  of  parsing  can  be  dealt 
with  by  careful  language  design.  Another  problem,  which  is  more  “human  factors”  oriented, 
is  the  large  amount  of  typing  which  an  English-like  language  can  require.  To  avoid  this 
problem,  the  explanation  system  makes  heavy  use  of  the  LISP  function  ASKUSER,  which 
features  recognition,  prompting,  and  other  features  conducive  to  pleasant  interaction.  The 
combination  of  a  carefully  designed  language  and  ASKUSER  makes  it  possible  to  indicate 
the  form  of  retrievals  simply. 
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The  second  feature  of  the  user  interface  which  simplifies  interaction  is  the  use  of  a 
“prettyprinter”  for  memory  contents.  Rather  than  answering  retrieval  requests  with  a 
(probably)  incomprehensible  network  structure,  all  answers  are  printed  in  a  format  designed 
to  be  easily  understood.  Assertions  are  printed  with  noise  words  like  "is”  and  “of,  and 
confidences  are  converted  into  modifier  strings.  When  a  list  of  answers  is  presented,  the 
list  is  numbered,  with  each  element  presented  on  a  separate  line.  Basenodes  are  printed  in 
a  form  that  is  conceptually  clearer  than  their  internal  representation  (e.g.,  SIGHTING0732 
rather  than  N0732). 

Perhaps  the  most  important  aspect  of  the  explanation  system  is  that,  on  request, 
help  is  available  to  explain  the  use  of  the  explanation  system  itself. 

GRAPHICS 

Graphical  support  for  STAMMER  is  provided  by  DSPLA  (Ref.  1 ).  a  package 
developed  at  NOSC  specifically  for  tactical  situation  assessment.  The  DSPLA  system  is  a 
collection  of  FORTRAN  subroutines  that  allow  storage,  retrieval,  and  display  of  ship  and 
aircraft  tracks.  It  provides  many  tools  for  manipulating  and  enhancing  the  usefulness  of 
the  displays.  STAMMER  controls  the  display  routines  by  means  of  a  LISP-FORTRAN 
interface,  obtained  from  SRI  International  and  modified  for  our  purpose.  This  makes  use 
of  TOPS-20  monitor  calls  to  establish  the  display  routines  as  a  separate  inferior  process  to 
the  dominant  INTERLISP  process  running  STAMMER.  The  interface  is  facilitated  by  a 
set  of  LISP  procedures  tailored  especially  for  controlling  DSPLA.  These  include  additional 
monitor  calls  that  allow  the  use  of  a  separate  terminal  for  graphics  output. 

Modifications  to  DSPLA 

Integrating  DSPLA  with  STAMMER  required  some  alterations  to  the  code  and 
link-editing  procedure.  These  were  necessary  ( I )  to  support  the  LISP-FORTRAN  interface. 
(2)  to  attach  a  new  front  end  to  STAMMER,  and  (3)  to  make  minor  improvements  to  the 
basic  system.  In  general  these  changes  are  not  visible  at  the  user  command  level. 

To  support  the  interface,  the  top  level  control  loop  was  changed  to  a  single  call 
and  return  to  allow  control  to  pass  back  to  STAMMER.  Since  the  interface  does  not  permit 
calling  a  main  FORTRAN  program,  all  essential  control  was  transferred  to  subroutines.  For 
convenience  some  input  normally  derived  from  user  interaction  is  now  instead  passed  as 
arguments  to  subroutines  (here  the  STAMMER  controlling  process  takes  the  place  of  the 
user).  At  link-edit  time,  it  is  necessary  to  include  a  support  file  F10F.REL  and  perform  an 
initialization  procedure  (Details  are  in  the  file  FORK.DOC.  See  below.) 

Attaching  the  front  end  to  STAMMER  required  subroutines  to  initialize  an  empty 
data  base  and  to  add  new  platforms  and  sightings  as  they  arose.  Because  of  limitations  in 
space  available  and  its  disuse  in  our  system,  the  ground  truth  structure  was  shrunk  to 
nothing.  Simultaneously  the  tracking  structure  was  expanded  to  accommodate  the  large 
number  of  tracks  required  by  our  system.  To  allow  saving  the  DSPLA  structure  for  later 
restart,  the  initialization  had  to  be  non-destructive,  i.e..  accomplished  by  means  of  data 
statements. 
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Other  minor  changes  to  DSPLA  include  new  input  routines  to  explicitly  set  the 
correct  character  echoing  inode  for  TOPS-20  and  to  obviate  the  need  for  a  carriage  return 
when  in  finger  key  inode.  The  algorithm  for  computing  the  window  that  includes  a  given 
set  of  tracks  was  modified  to  preserve  the  aspect  ratio.  This  was  to  maintain  compatibility 
with  the  1S1  map  routine  which  otherwise  arbitrarily  contracts  the  picture.  The  routines 
that  search  the  tracking  structure  for  platforms  were  modified  where  necessary  to  require 
a  match  on  all  ten  characters.  This  change  allowed  the  use  of  platform  names  which 
coincide  in  the  first  five  characters.  To  allow  graphic  output  to  go  to  a  terminal  other 
than  the  job  controlling  one,  a  new  global  variable  and  common  storage  area,  NTTY,  was 
introduced. 

Further  information  on  these  changes  is  given  in  comments  in  the  code. 

Modifications  to  LISP-FORTRAN  Interface 

Modifications  were  necessary  to  allow  Fortran-10  (in  which  DSPLA  is  written)  to 
be  used  in  place  of  Fortran-4  (also  known  as  F40).  The  interface  was  also  changed  so  that 
the  superior  and  inferior  processes  could  run  in  parallel,  with  synchronizing  waits  only 
where  necessary.  This  feature  is  very  useful  when  running  with  graphics  going  to  a 
separate  display  terminal. 

GRAPHICS-RELATED  FILES 

LISP-FORTRAN  interface:  FORK.LISP,  FIOF.MAC  (see  also  FORK.DOC). 

D1SPLA  routines.  DISPLIB.  FOR,  DISPIO.MAC 

STAMMER-DISPLA  Interface:  DISPLA.LSP 
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VI.  MATHEMATICAL  TECHNIQUES 


Mathematical  methods  are  used  extensively  only  in  the  geometry  procedures  that 
determine  the  geographical  conditions  satisfied  by  sightings.  The  functions  that  combine 
confidences  also  merit  some  discussion. 

GEOMETRY  FUNCTIONS 

Distance  and  bearing  are  computed  by  formulas  derived  from  three-dimensional 
vector  geometry.  Thus  they  are  not  flat-Earth  approximations,  but  are  valid  for  all  points 
of  the  Earth's  surface.  Higher  level  functions  use  well-known  trigonometric  formulas,  based 
on  a  flat-Earth  approximation.  However,  they  are  defined  in  terms  of  distance  and  bearing, 
so  that  their  results  are  applicable  to  all  regions  of  the  Earth  sufficiently  small  to  be  treated 
as  fiat,  including  regions  near  the  poles. 

A  couple  of  procedures  are  deserving  of  special  mention.  The  function  that  deter¬ 
mines  interior  points  of  a  polygon  is  based  on  Cauchy’s  Integral  Formula.  Functions  that 
determine  whether  a  platform  could  have  reached  a  given  position  without  being  spotted  by 
a  patrol  use  geometric  methods  rather  than  algebraic  or  analytic  ones. 

DERIVATIONS  OF  GEOMETRIC  FORMULAS 

I.  Range,  bearing 

Assume  the  Earth  is  a  sphere.  With  suitable  units,  the  radius  may  be  taken  as  1.  The 
spherical  polar  coordinates  of  a  point  on  the  surface  are  ( 1 .  tf.  0).  where  6  and  0  are  the 
latitude  and  longitude,  respectively.  In  Cartesian  coordinates  this  becomes 

(oostf  cos  0.cos  y sin  0,sin  0 ). 

Let  A  and  B  be  points  with  lat-lon  pairs  {0  j  ,0 ) )  and  (0  ->.0-0  respectively.  Let  u  and  v  be 

the  position  vectors  of  A  and  B.  Let  i J/  be  the  angle  between  u  and  v.  that  is.  the  an^le 

subtended  at  the  Earth's  center  by  A  and  B.  Then 

cos0  =  u*v 

=  cos  0  |  cos  0 1  cos  (9-)Cos  0-,+eos  0  ]  sin  0  ]  cos  0  ssin  0-,+sin  0  j  si n  0  -> 

=  cos  9  |  cos  0->(cos  0  |  cos  0->+sin  0 1  sin  0->)  +  sin  0  |  sin  0  -> 

=  cos  9  |  cos  0  icos  ( 0  j  -  0  ->)  +  sin  0  |  sin  d  -> 

The  range  in  nautical  miles  is  given  by  60*0  (when  0  is  measured  in  degrees). 

To  compute  the  bearing  from  A  to  B.  we  first  obtain  a  unit  vector  p.  orthogonal  to 
both  u  and  v.  This  is  given  by 

P  =  (u  X  v)/sin0. 

Next  we  require  a  unit  vector  q  orthogonal  to  u.  but  in  the  plane  determined  by  u  and  the 


Earth's  axis.  We  may  write 

q  =  l(uXk)/eos  0  [  |  Xu, 

where  k  is  a  unit  vector  in  the  z  direction  (parallel  to  the  Earth's  axis,  pointing  north). 

The  vector  q  may  be  positioned  tangent  to  the  Earth  at  A.  pointing  northward.  The 
vector  p  can  be  placed  so  that  it  is  tangent  to  the  Earth  at  A  and  rotated  90  deg  counter¬ 
clockwise  from  the  direction  toward  B.  Then  (modulo  360) 


Bearing(A.B)  =  90±arccos  ( p*q). 

The  ambiguous  sign  is  positive  when  the  rotation  from  p  to  q  is  counterclockwise. 
We  derive  an  expression  lor  p*q  as  follows: 


p*q  =  [(uXk)Xul  MuXv)/(cos  6 1 sin  0) 

But  [(uXk)Xu)  ’(tiXv)  =  -[(kXu)Xu)  *(uXv) 

=  -k*(uX[uX(uXv)j ) 

=  -k-(uXv).  since  u  is  a  unit  vector 

=  -(cos  0  i  cos  cos  Ossin  0s  -  cos  6  j  sin  0  j  cos  0 cos  0s) 
=  cos  d  |  cos  d  s  sin  (<t>  |  -  0s ) 

If  we  assume  Q  j  #  ±90.  we  may  cancel  cos  d  j ,  to  get 


p*q  =  cos  6  s  sin  (0 1  -  0-i)/sin  0 
The  bearing  is  undefined  when  0  =  180.  We  set 

Bearing(A.B)  =  |90  when  0  j  =  90 
0  when  d  |  =  -90 


2.  Interior  points  of  a  polygon 


If  r  is  a  simple  closed  rectifiable  curve  and  a  is  any  complex  constant,  then 


27ri,  if  a  is  inside 
0  otherwise 


r 


by  Cauchy’s  Integral  Formula  (Ref.  3). 

But  f  dz,  r 

Jr  z-a  -  /.r  d(log(z-a)) 

=  Jr  d(log|z-a|)  +  iff  d(arg(z-a)) 


When  T  is  completely  traversed,  log|z-a|  returns  to  its  original  value. 
Thus  fr  d(loglz-al)  =  0 
It  follows  that  (cancelling  the  i) 
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P  d(arg(/-u))  = 


2n.  it  a  is  inside  I 
0  otherwise 


Suppose  I'  is  a  polygon  with  vertices  (in  order)  / 


vruThc" 


/  .  For  convenience  we  write 
n 


/  rdlJ 


irg!  /-a)  |  = 


n  ri 


j+l 


d  1  arg(  /.-a ) 


=  X  |  arg(  Zj  + 1  -a )  -  arg<  Zj-a )  | 


where  tor  each  summand,  a  branch  ol'arg  is  chosen  that  is  continuous  in  the  region  of 
integration.  If  we  write 


bj  =  Bearing! a, Zj+ 1 )  -  Bearing! a./j).  then 


arg(/.j+|-a)  -  arg(/j-a) 


3<>0+b:  i  1  bj  <-180 

h:  if -I  HO  <  bj  <  ISO 

bj-360  if  bj  >  180 


3.  Closest  approach 


Suppose  S|  and  Ss  are  objects  moving  at  constant  velocity.  Assume  Sj  starts 
from  A  at  time  0  with  velocity  vector  vj.  Simultaneously  Ss  starts  from  B  with  velocity 
vector  vs.  We  wish  to  compute  d.  the  distance  of  closest  approach  and  t.  the  time  of 
closest  approach. 


Let  C  be  the  point  of  closest  approach.  Relative  to  Ss.  the  motion  appears  as 

follows: 


A 


C 

B 


Relative  to  S.,.  it  appears  that  Sj  moves  with  velocity  V|-v^.  Let  w  be  a  unit  vector  in  the 
direction  from  A  to  B.  Then 

COS  9  =  W(V|-Vs)/|V|-Vs| 

Clearly  d  =  Range!  A, B)  sin  0 
and  t  =  Range!  A.Blcos  0/lv |-vs| 

CONFIDENCE  COMBINING  FUNCTIONS 

These  are  the  same  as  those  used  in  MYCIN  (Ref.  2)  except  that  disjunction  does 
not  occur  in  our  rules.  Briefly,  each  assertion  has  a  measure  of  belief  and  a  measure  of 
disbelief  associated  with  it.  The  antecedent  of  each  rule  is  a  conjunction  of  conditions. 
The  measure  of  belief  (disbelief)  of  the  antecedent  is  the  minimum  (maximum)  of  the 
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measures  of  belief  (disbelief)  of  the  individual  conditions.  Each  rule  has  a  weight  attached 
to  it.  "Che  contribution  of  belief  (disbelief)  provided  by  a  successful  rule  firing  is  the  product 
of  this  weight  and  the  measure  of  belief  (disbelief)  of  the  antecedent.  When  two  rules  bear 
upon  the  same  hypothesis,  their  contributions  of  belief  and  disbelief  are  combined  separately 
according  to  the  formula 

Combine(C|,C'))  =  Cj  +  c-,  -  Cj  *  C2- 

Then  the  total  contribution  of  disbelief  is  subtracted  from  the  total  contribution  of  belief 
to  give  the  confidence.  When  more  than  two  rules  combine,  the  process  is  iterated.  That  is, 

Combine(cj  .ct.cj)  =  Combine{cj,Combine(C'),C3)]. 
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Appendix  A 
DSP LA  Commands 


FUNCTION  KEYS  ARE  ENTERED  AS  ONE 
LETTER.  TO  OBTAIN  INFORMATION  ON 
SPECIFIC  FUNCTION  KEYS#  RETURN  TO 
COMMAND  MODE  AND  EXECUTE  <FKDOC>. 


FK  DESCRIPTION 

P  POSITION  TO  STACK 

M  MAGNIFY  ABOUT  CURSOR 

R  REDUCE  ABOUT  CURSOR 

V  VIEW  ABOUT  CURSOR 

L  LIST  FILES  AVAILABLE 

G  LIST  GROUND  TRUTH 

T  LIST  TRACKING 

H  LIST  HISTORY 

D  RE-DISPLAY  PLOT 

8  SET  TYPE  SIZE  1 

9  SET  TYPE  SIZE  2 
SET  TYPE  SIZE  3 

i  SET  TYPE  SIZE  4 

?  HELP 

C  RETURN  TO  COMMAND  MODE 

K  POSITION  TO  TRACK  STACK 

N  MOVE  LAST  FIGURE  FWD 

REPEAT  LAST  PLOT  COMND 
S  SET  GLOBAL  COORDINATES 

A  APPEND  TO  FOLLOWING 

Z  CLEAR  TRACK  STACK 

F  MOVE  TIME  FORWARD 

B  MOVE  TIME  BACKWARD 

U  LIST  FIGURE  FILE 

E  EXIT  FK  MODE 


'P'  FUNCTION  KEY 

POSITION  THE  CURSOR  ANYWHERE  ON  THE  TERMINAL  SCREEN  AND  ENTER  'P'. 
THE  LAT-LON  POSITION  OF  THE  CURSOR  WILL  BE  PLACED  INTO  A  STACK  WHICH 
CAN  HOLD  10  POSITIONS  (THE  1 1TH  POSITION  WILL  OVER-WRITE  THE  1ST) 
THE  POSITIONS  IN  THE  STACK  CAN  THEN  BE  USED  FOR  OTHER  PURPOSES,  SUCH 
AS  POINTS  OF  ORIGIN  FOR  BEARING  LINES,  CENTERS  OF  FIGURES,  ETC. 


'M'  FUNCTION  KEY 

POSITION  THE  CURSOR  ANYWHERE  ON  THE  TERMINAL  SCREEN  AND  ENTER  'M'. 
THE  DISPLAY  WILL  BE  MAGNIFIED  BY  A  FACTOR  SET  BY  <SCALE>  AND  CENTERED 
AT  THE  CURSOR  POSITION.  THE  DEFAULT  FACTOR  IS  2. 
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R'  FUNCTION  KEY 


POSITION  THE  CURSOR  ANYWHERE  ON  THE  TERMINAL  SCREEN  AND  ENTER  'R ' . 
THE  DISPLAY  WILL  BE  REDUCED  BY  A  FACTOR  SET  BY  <SCALE>  AND  CENTERED  AT 
THE  CURSOR  POSITION.  THE  DEFAULT  FACTOR  IS  2. 


'V'  FUNCTION  KEY 

POSITION  THE  CURSOR  ANYWHERE  ON  THE  TERMINAL  SCREEN  AND  ENTER  'V'. 
THE  DISPLAY  WILL  BE  GIVEN  AT  THE  SAME  SCALE  BUT  CENTERED  AT  THE  CURSOR 
POSITION. 


'L'  FUNCTION  KEY 

ENTER  'L'  AND  A  LISTING  OF  ALL  ACCESSABLE  FILES  AND  SUBFILES  WILL  BE 
GIVEN  ALONG  WITH  THEIR  CORRESPONDING  FILE  CODES.  WHEN  PROMPTED,  ENTER 
ONE  OF  THE  FILE  CODES  (SUBFILES  MAY  BE  VIEWED  ONLY  WITHIN  ITS  PARENT 
FILE).  THE  FILE  WILL  BE  DISPLAYED  WITH  PAGE  SIZE  SET  BY  <PGSIZ> 
(DEFAULT  IS  20  LINES)  AND  CURRENT  TYPE  SIZE  (MUST  BE  SIZE  1  FOR  SINGLE 
TYPE  SIZE  TERMINALS). 


'G'  FUNCTION  KEY 

ENTER  'G'  TO  VIEW  THE  GTH  FILE.  PAGE  SIZE  IS  AS  SET  BY  <PGSIZ>  AND 
CURRENT  TYPE  SIZE  IS  USED  (MUST  BE  SIZE  I  FOR  SINGLE  TYPE  SIZE 
TERMINALS).  ONCE  THE  FILE  IS  DISPLAYED,  USE  'F '  TO  VIEW  SUCCEEDING 
PAGES;  'B'  TO  VIEW  PRECEEDING  PAGES;  'R '  TO  RETURN  FROM  VIEWING.  'E' 
TO  EDIT  A  LINE;  AND  ANY  VALID  SUBFILE  CODE  TO  VIEW  SUBFILES. 


'T'  FUNCTION  KEY 

ENTER  'T  TO  VIEW  THE  TRH  FILE.  PAGE  SIZE  IS  AS  SET  BY  <PGSIZ>  AND 
CURRENT  TYPE  SIZE  IS  USED  (MUST  BE  SIZE  1  FOR  SINGLE  TYPE  SIZE 
TERMINALS).  ONCE  THE  FILE  IS  DISPLAYED,  USE  'F'  TO  VIEW  SUCCEEDING 
PAGES;  'B'  TO  VIEW  PRECEEDING  PAGES;  'R'  TO  RETURN  FROM  VIEWING.  'E' 
TO  EDIT  A  LINE;  AND  ANY  VALID  SUBFILE  CODE  TO  VIEW  SUBFILES. 


'H'  FUNCTION  KEY 

POSITION  THE  CURSOR  AT  THE  LOWER  LEFT  CORNER  OF  THE  FIRST  LETTER  OF 
THE  TRACK  NAME  AND  ENTER  'H'.  THE  TRACK  HISTORY  OF  THAT  TRACK  WILL  BE 
DISPLAYED  IN  FILE  FORMAT.  CONTINUE  WITH  FILE  COMMANDS. 


'D'  FUNCTION  KEY 

IF  IN  FUNCTION  KEY  MODE  THE  DISPLAY  IS  ERASED  FOR  VIEWING  OTHER  DATA. 
ENTER  'D'  TO  RE-DISPLAY  THE  PLOT. 
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'8'  FUNCTION  KEY 

ENTER  '8'  TO  SET  TYPE  SIZE  TO  LARGEST  ON  THE  TEKTRONIX  4014  TERMINAL. 
THIS  IS  THE  DEFAULT  TYPE  SIZE  AND  SHOULD  BE  USED  ON  SINGLE  TYPE  SIZE 
TERMINALS. 


'9'  FUNCTION  KEY 

ENTER  '9'  TO  SET  TYPE  SIZE  TO  NEXT  TO  LARGEST  ON  THE  TEKTRONIX  4014 
TERMINAL.  THIS  SIZE  SHOULD  NOT  BE  USED  ON  SINGLE  TYPE  SIZE  TERMINALS. 


': '  FUNCTION  KEY 

ENTER  '  TO  SET  TERMINAL  TYPE  SIZE  TO  NEXT  TO  SMALLEST  ON  THE 
TEKTRONIX  4014  TERMINAL.  THIS  SIZE  SHOULD  NOT  BE  USED  ON  SINGLE  TYPE 
SIZE  TERMINALS. 


'  FUNCTION  KEY 

ENTER  ';  '  TO  SET  TYPE  SIZE  TO  SMALLEST  ON  THE  TEKTRONIX  4014  TERMINAL. 
THIS  SIZE  SHOULD  NOT  BE  USED  ON  SINGLE  TYPE  SIZE  TERMINALS. 


'?'  FUNCTION  KEY 

ENTER  '?'  TO  OBTAIN  INFORMATION  ON  ENTRY,  FORMAT,  AND  HOW  TO  OBTAIN 
ADDITIONAL  INFORMATION  ON  FUNCTION  KEYS,  AS  WELL  AS  A  LISTING  OF 
AVAILABLE  FUNCTION  KEYS  AND  THEIR  FUNCTIONS. 


'K'  FUNCTION  KEY 

POSITION  THE  CURSOR  ANYWHERE  ON  THE  TERMINAL  SCREEN  AND  ENTER  'K' 
THE  LAT-LON  POSITION  IS  PLACED  IN  A  TRACK  STACK  WHERE  IT  MAY  BE 
INTERPRETED  AS  A  TRACK  INCIDENT.  INCIDENTS  ARE  SEPARATED  BY  A  TIME 
INCREMENT,  DT  (SET  BY  <TXSPXI».  'Z'  WILL  CLEAR  THE  TRACK  STACK  OF 
ALL  DATA.  <WRITE>  MAY  BE  USED  TO  WRITE  THE  TRACK  STACK  ON  TO  THE  DISK 
AS  A  FILE;  <EXCH>  MAY  BE  USED  TO  EXCHANGE  THE  TRACK  STACK  WITH  A  TRACK 
IN  THE  TRACKING  STRUCTURE;  OR  <READ>  MAY  BE  USED  TO  READ  A  FILE 
CONTAINING  TRACK  DATA  INTO  THE  TRACK  STACK.  POINTS  THEN  PLACED  INTO 
THE  STACK  BY  'K'  WILL  FOLLOW  THE  DATA  ALREADY  THERE. 


'S'  FUNCTION  KEY 

ENTER  'S'  TO  CAUSE  THE  GLOBAL  AREA  COORDINATES  TO  BE  SET  TO  THE 
CURRENTLY  DISPLAYED  AREA  WINDOW. 
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A'  FUNCTION  KEY 


ENTER  'A'  TO  APPEND  CURRENTLY  DISPLAYED  TRACKS  TO  ALL  FOLLOWING 
DISPLAYS.  THIS  CAN  ONLY  BE  CANCELLED  BY  <NOAPP>.  APPENDED  TRACKS  ARE 
UNAFFECTED  BY  CHANGES  IN  THE  TIME  WINDOW. 


'Z  7  FUNCTION  KEY 

ENTER  7Z7  TO  CLEAR  THE  TRACK  STACK  OF  ALL  DATA. 


7F  7  FUNCTION  KEY 

ENTER  7F 7  TO  MOVE  THE  TIME  WINDOW  FORWARD  BY  A  TIME  INCREMENT.  DT  (SET 
BY  <TXSPXI»  AND  EXECUTE  THE  PREVIOUS  PLOT  COMMAND. 


7B  7  FUCNTION  KEY 

ENTER  7B 7  TO  MOVE  THE  TIME  WINDOW  BACKWARD  BY  A  TIME  INCREMENT.  DT 
(SET  BY  <T>XSPXI>)  AND  EXECUTE  THE  PREVIOUS  PLOT  COMMAND. 


7  7  FUNCTION  KEY  (SPACE) 

ENTER  7  7  TO  EXECUTE  THE  PREVIOUS  PLOT  COMMAND. 


7N 7  FUNCTION  KEY 

ENTER  7N 7  TO  CAUSE  THE  MOST  RECENTLY  DEFINED  FIGURE  (CIRCLE.  ELLIPSE. 
ETC.  )  TO  HAVE  ITS  POINT  OF  ORIGIN  OR  CENTER  CHANGED  TO  THE  TOP 
POSITION  IN  THE  TRACK  STACK. 


7C7  FUNCTION  KEY 

ENTER  7C7  TO  RETURN  TO  COMMAND  MODE. 


7U7  FUNCTION  KEY 

ENTER  7U7  TO  VIEW  THE  FIGURE  FILE.  PAGE  SIZE  IS  AS  SET  BY  <PGSIZ>  AND 
CURRENT  TYPE  SIZE  IS  USED  (MUST  BE  SIZE  1  FOR  SINGLE  TYPE  SIZE 
TERMINALS).  ONCE  THE  FILE  IS  DISPLAYED.  USE  7F7  TO  VIEW  SUCCEEDING 
PAGESi  7B 7  TO  VIEW  PRECEEDING  PAGES*  7R7  TO  RETURN  FROM  VIEWING*  'E7 
TO  EDIT  A  LINE;  AND  7G7  TO  QUIT  VIEWING. 


7E 7  FUNCTION  KEY 

ENTER  7E 7  TO  EXIT  FUNCTION  KEY  MODE  AND  RETURN  TO  KEYBOARD  MODE. 
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TYPE  COMMANDS  IN  THE  FOLLOWING  FORM 
<COMMAND>  <SPACE>  <ARGUMENTS>.  TO 
OBTAIN  INFORMATION  ON  A  SPECIFIC 
COMMAND  AND  ITS  ARGUMENTS.  TYPE 
<COMMAND>  <SPACE>  <?>. 


COMMAND  DESCRIPTION 

PGT  PLOT  FROM  GROUND  TRUTH 

Q  QUIT 

LGT  LOCATE  FROM  GROUND  TRUTH 

G  SET  GEOGRAPHIC  MAP 

M  MAGNIFY  DISPLAY 

F  MOVE  TIME  FORWARD 

A  CHANGE  AREA  WINDOW 

T  CHANGE  TIME  WINDOW 

S  STORE  DISPLAY 

D  RECALL  DISPLAY 

K  KILL  DISPLAY 

E  ENQUIRE 

R  REDUCE  DISPLAY 

REPEAT  LAST  PLOT 
C  SET  GEOGRAPHIC  AREA 

APPND  APPEND  TO  FOLLOWING 

NOAPP  CANCEL  APPEND 

START  RE-START  DSPLA 

CELL  DEFINE  ELLIPSE 

LOB  DEFINE  BEARING  LINE 

CIRCLE  DEFINE  CIRCLE 

PTR  PLOT  FROM  TRACKING 

LTR  LOCATE  FROM  TRACKING 

FILES  LIST  FILES  AVAILABLE 

SIZE3  SET  TYPE  SIZE  3 

SIZE1  SET  TYPE  SIZE  1 

SIZE2  SET  TYPE  SIZE  2 

SIZE4  SET  TYPE  SIZE  4 

PGSIZE  SET  LINES  PER  PAGE 

?  HELP 

SCALE  SET  MAGNIFY  SCALE 

ARROW  INCLUDE  ARROWHEADS 

NOARR  NO  ARROWHEADS 

LABEL  INCLUDE  LABELS 

NOLBL  NO  LABELS 

SYM  INCLUDE  SYMBOLS 

NOSYM  NO  SYMBOLS 

LINES  CONNECT  WITH  LINES 
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NOLIN  NO  LINES 

B  MOVE  TIME  BACKWARD 

RHUMB  DEFINE  RHUMB  LINE 

FKDOC  FUNCTION  KEY  INFO 

RADIUS  DEFINE  RADIUS  OF  TRAVEL 

WRITE  WRITE  TRACK  STACK 

READ  READ  TRACK  FROM  DISK 

EXCH  EXCHANGE  TRACK  STACK 

HLPFL  ACCESS  HELP  FILE 

RBT  FIND  RNG,  BNG»  TIME 

RFILE  READ  TRH/TRK,  GTH/GTK  FILES 

WFILE  WRITE  TRH/TRK.  GTH/GTK  FILES 

DISP  RE-DISPLAY  PREVIOUS  PLOT 

GTH  DISPLAY  GTH  FILE 

TRH  DISPLAY  TRH  FILE 

FIG  DISPLAY  FIGURE  FILE 

FKMODE  ENTER  FUNCTION  KEY  MODE 


FORM  OF  DISPLAY  FIGURE  FILE:  <FIG> 

THE  FIGURE  FILE  IS  DISPLAYED  FOR  VIEWING  AND/OR  EDITING  USING  COMMANDS 
OF  THE  FILE  HANDLING  SYSTEM.  FOR  A  DESCRIPTION  OF  THESE  COMMANDS. 
EXECUTE  <FILES>  AND  THEN  '?'. 


FORM  OF  ENTER  FUNCTION  KEY  MODE:  <FKMOD> 

THE  ATTACHED  PROGRAM  FUNCTION  KEYBOARD  BECOMES  THE  PRIMARY  COMMAND 
SOURCE.  COMMANDS  ARE  EXECUTED  BY  POSITIONING  THE  CURSOR  (WHEN 
NECESSARY)  AND  PUSHING  THE  APPROPRIATE  FUNCTION  KEY  BUTTON.  FUNCTION 
KEY  MODE  IS  EXITED  WHEN  THE  "KB MODE”  FUNCTION  KEY  IS  PUSHED. 


FORM  OF  WRITE  FILE:  <WF  ILEXSPXFILE  NAME> 

FILE  NAME  IS  A  5  CHARACTER  (MAX)  ALPHAMERIC  NAME  WHICH  WILL  IDENTIFY 
THE  FILE  TO  BE  WRITTEN.  FILE  NAMES  BEGINNING  WITH  'G'  WILL  CAUSE  DATA 
TO  BE  WRITTEN  FROM  THE  GTH/GTK  STRUCTURES.  ALL  OTHER  FILE  NAMES 
DENOTE  THE  TRH/TRK  STRUCTURES.  THE  FILE  IS  WRITTEN  TO  DISK  IN  BINARY 
MODE. 


FORM  OF  READ  FILE:  CRFILEXSPXFILE  NAME> 

FILE  NAME  IS  A  5  CHARACTER  (MAX)  ALPHAMERIC  NAME  WHICH  WILL  IDENTIFY 
THE  FILE  TO  LE  READ.  FILE  NAMES  BEGINNING  WITH  'G'  WILL  CAUSE  DATA  TO 
BE  READ  INTO  THE  GTH/GTK  STRUCTURES.  ALL  OTHER  FILE  NAMES  DENOTE  THE 
TRH/TRK  STRUCTURES.  THE  DISK  FILE  TO  BE  READ  SHOULD  HAVE  BEEN  CREATED 
BY  DSPLA  USING  THE  <WFILE>  COMMAND. 
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FORM  OF  RE-DISPLAY  PREVIOUS  PLOT:  <DISP> 


THE  PREVIOUS  DISPLAY  IS  REPRODUCED  FOR  VIEWING  AND/OR  ACTION. 

FORM  OF  DISPLAY  GTH  FILE:  <GTH> 

THE  GTH  FILE  IS  DISPLAYED  FOR  VIEWING  AND/OR  EDITING  USING  COMMANDS  OF 
THE  FILE  HANDLING  SYSTEM.  FOR  A  DESCRIPTION  OF  THESE  COMMANDS, 
EXECUTE  <FILES>  AND  THEN  '?'. 


FORM  OF  DISPLAY  TRH  FILE:  <TRH> 

THE  TRH  FILE  IS  DISPLAYED  FOR  VIEWING  AND/OR  EDITING  USING  COMMANDS  OF 
THE  FILE  HANDLING  SYSTEM.  FOR  A  DESCRIPTION  OF  THESE  COMMANDS. 
EXECUTE  <FILES>  AND  THEN  '?'. 


FORM  OF  FIND  RNG.  BNG.  TIME.  <RBT> 

DATA  IS  DRAWN  FROM  THE  TRACK  STACK.  WITH  A  GIVEN  SPEED.  THE  RANGE, 
BEARING.  AND  TIME  OF  TRAVEL  FROM  POINT  1  TO  POINT  2,  POINT  2  TO  POINT 
3.  ETC.  IS  CALCULATED.  USING  GREAT  CIRCLE  FORMULA,  AND  DISPLAYED. 


FORM  OF  SET  MAGNIFY  SCALE:  <SCALE> 

ALLOWS  CHANGING  THE  FACTOR  BY  WHICH  DISPLAYS  ARE  MAGNIFIED  OR  REDUCED. 
THE  DEFAULT  F,  AC  TOR  IS  2. 

FORM  OF  INCLUDE  ARROWHEADS:  <ARROW> 

CAUSES  ARROWHEADS  TO  BE  DRAWN  AT  THE  ENDS  OF  TRACK  LINE  SEGMENTS  TO 
DENOTE  THE  DIRECTION  OF  TRAVEL  OF  TRACKS  WHEN  PLOTTED  (DEFAULT 
CONDITION). 


FORM  OF  NO  ARROWHEADS:  <NOARR> 

CAUSES  ARROWHEADS  TO  NOT  BE  INCLUDED  ON  TRACKS  WHEN  PLOTTED 


FORM  OF  INCLUDE  LABELS:  <LABEL> 

CAUSES  THE  TRACK  NAME  TO  BE  DISPLAYED  BY  THE  TRACK  WHEN  PLOTTED 
< DEFAULT  CONDITION). 


FORM  OF  NO  LABELS:  <NOLBL> 

CAUSES  THE  TRACK  NAME  TO  NOT  BE  DISPLAYED  BY  THE  TRACK  WHEN  PLOTTED 
FORM  OF  INCLUDE  SYMBOLS:  <SYM> 

CAUSES  SYMBOLS  TO  BE  DRAWN  AT  TRACK  INCIDENT  POINTS  WHEN  TRACK  IS 
PLOTTED  (DEFAULT  CONDITION). 
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FORM  OF  NO  SYMBOLS:  <NOSYM> 


CAUSES  SYMBOLS  TO  NOT  BE  DRAWN  AT  TRACK  INCIDENT  POINTS  WHEN  TRACK  IS 
PLOTTED. 


FORM  OF  NO  LINES:  <NOLIN> 

CAUSES  TRACK  INCIDENT  POINTS  TO  NOT  BE  CONNECTED  WITH  LINES  WHEN  A 
TRACK  IS  PLOTTED 


FORM  OF  CONNECT  WITH  LINES:  <LIN£S> 

CAUSES  TRACK  INCIDENT  POINTS  TO  BE  CONNECTED  WITH  LINES  WHEN  TRACK  IS 
PLOTTED  (DEFAULT  CONDITION). 


FORM  OF  MOVE  TIME  BACKWARD:  <B> 

MOVES  THE  TIME  WINDOW  BACKWARD  BY  A  TIME  INCREMENT  DT  (SET  BY 
<TXSPXI»,  AND  THE  PREVIOUS  PLOT  COMMAND  IS  EXECUTED  ( <SP> ) . 


FORM  OF  DEFINE  RHUMB  LINE:  <RHUMB> 

ALLOWS  DEFINING  A  LINE  OF  BEARING  ALONG  A  RHUMB  LINE  AND  SETTING  A 
SYMBOLIC  NAME  FOR  THAT  BEARING  LINE.  PARAMETERS  REQUIRED  ARE  POINT  OF 
ORIGIN  AND  BEARING.  THE  SYMBOLIC  NAME  MAY  THEN  BE  USED  AS  THE  NAME  OF 
A  TRACK  WHICH  PLOTS  THE  BEARING  LINE. 


FORM  OF  FUNCTION  KEY  INFO:  <FKDOC> 

ALLOWS  ACCESS  TO  DOCUMENTATION  ON  AVAILABLE  FUNCTION  KEYS. 


FORM  OF  DEFINE  RADIUS:  <RADIU> 

ALLOWS  DEFINING  A  RADIUS  OF  TRAVEL  AND  SETTING  A  SYMBOLIC  NAME  FOR 
THAT  RADIUS.  PARAMETERS  REQUIRED  ARE  POSITION  OF  CENTER  AND  SPEED. 
THE  TIME  INCREMENT.  DT  (SET  BY  CTXSPXIX .  IS  MULTIPLIED  BY  THE  SPEED 
TO  GIVE  A  RADIUS.  THE  SYMBOLIC  NAME  MAY  THEN  BE  USED  AS  THE  NAME  OF  A 
TRACK  WHICH  PLOTS  THAT  RADIUS. 


FORM  OF  WRITE  TRACK  STACK:  <WR  ITEXSPXFILE  NAME> 

FILE  NAME  IS  UP  TO  5  ALPHAMERIC  CHARACTERS  WHICH  ARE  TO  IDENTIFY  THE 
TRACK  IN  THE  FORM  OF  A  DISK  FILE.  THE  EXTENSION  OF  FILE  NAME  WILL  BE 
DAT.  DATA  ASSOCIATED  WITH  THE  TRACK  IN  THE  TRACK  STACK  (NAME.  TARGET 
PARAMETER.  TYPE,  NUMBER  OF  INCIDENTS,  AND  TRACK  NUMBER)  ARE  ALSO 
WRITTEN.  IF  TRACK  NAME  IS  UNDEFINED,  A  NAME,  INITIAL  TRACK  TIME.  AND 
TRACK  NUMBER  MUST  BE  ENTERED  BEFORE  THE  TRACK  IS  WRITTEN.  THE  TRACK 
STACK  IS  UNAFFECTED  BY  THE  WRITE  OPERATION. 


FORM  OF  READ  TRACK  FROM  DISK.  <READXSPXFILE  NAME> 

FILE  NAME  IS  THE  S  CHARACTER  <MAX>  ALPHAMERIC  DISK  FILE  NAME  WHICH 
IDENTIFIES  THE  TRACK  TO  BE  READ.  AFTER  READING  THE  TRACK  STACK  WILL 
CONTAIN  THE  TRACK  AND  ASSOCIATED  DATA  (TRACK  NAME,  TYPE,  ETC  ). 
POINTS  ENTERED  INTO  THE  TRACK  STACK  WILL  FOLLOW  THE  DATA  HELD  THERE. 


FORM  OF  EXCHANGE  TRACK  STACK:  <EXCHXSPXTRACK  NAME> 

TRACK  NAME  IDENTIFIES  A  TRACK  ALREADY  IN  THE  TRACKING  STRUCTURE  AND 
MAY  BE  THE  NAME.  TYPE  OR  CLASS,  OR  TARGET  PARAMETER.  THAT  TRACK  IS 
THEN  EXCHANGED  WITH  THE  TRACK  IN  THE  TRACK  STACK,  ALONG  WITH  ALL 
ASSOCIATED  DATA.  PLOTTING  MAY  THEN  BE  DONE  WITH  THE  NEW  TRACK  OR  THE 
OLD  TRACK  NOW  IN  THE  TRACK  STACK  MAY  BE  WRITTEN  TO  DISK.  POINTS 
ENTERED  INTO  THE  TRACK  STACK  WILL  FOLLOW  THE  DATA  HELD  THERE. 


FORM  OF  APPEND  FOLLOWING:  <APPND> 

THE  TRACKS  DISPLAYED  IN  THE  PREVIOUS  DISPLAY  WILL  BE  AUTOMATICALLY 
INCLUDED  IN  THE  FOLLOWING  DISPLAYS  UNTIL  CANCELLED  BY  <NOAPP>.  ALL 
APPENDED  TRACKS  WILL  NOT  BE  AFECTED  BY  A  CHANGE  OF  THE  TIME  WINDOW. 


FORM  OF  CANCEL  APPEND:  <NOAPP> 

ALL  TRACKS  APPENDED  BY  <APPND>  ARE  RELEASED  FROM  AUTOMATIC  INCLUSION 
TO  ALL  DISPLAYS. 


FORM  OF  RE-START  DISPLAY:  <START> 

DSP LA  IS  RE-INITIALIZED,  SETTING  ALL  PARAMETERS  TO  DEFAULT  AND 
ALLOWING  THE  RE-ENTERING  OF  SCREEN  WIDTH  AND  GRID  SIZE.  ALL  STORED 
SEGMENTS  AND  DATA  DEFINED  PREVIOUS  TO  THE  EXECUTION  OF  THIS  COMMAND 
ARE  LOST. 


FORM  OF  DEFINE  ELLIPSE:  <CELL> 

ALLOWS  DEFINING  A  CONFIDENCE  ELLIPSE  AND  SETTING  A  SYMBOLIC  NAME  FOR 
THAT  ELLIPSE.  PARAMETERS  REQUIRED  ARE  CENTER  POSITION,  MAJOR  AXIS, 
MINOR  AXIS.  MAJOR  AXIS  BEARING.  AND  TIME.  THE  SYMBOLIC  NAME  MAY  THEN 
BE  USED  AS  THE  NAME  OF  A  TRACK  WHICH  PLOTS  THAT  ELLIPSE. 


FORM  OF  DEFINE  BEARING  LINE.  <LOB> 

• 

ALLOWS  DEFINING  A  LINE  OF  BEARING  ALONG  A  GREAT  CIRCLE  AND  SETTING  A 
SYMBOLIC  NAME  FOR  THAT  BEARING  LINE.  PARAMETERS  REQUIRED  ARE  POINT  OF 
ORIGIN  AND  BEARING.  THE  SYMBOLIC  NAME  MAY  THEN  BE  USED  AS  THE  NAME  OF 
A  TRACK  WHICH  PLOTS  THAT  BEARING  LINE. 
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FORM  OF  DEFINE  CIRCLE:  <CIRCLE> 

ALLOWS  DEFINING  A  CIRCLE  AND  SETTING  A  SYMBOLIC  NAME  FOR  THAT  CIRCLE. 
PARAMETERS  REQUIRED  ARE  CENTER  POSITION  AND  RADIUS.  THE  SYMBOLIC  NAME 
MAY  THEN  BE  USED  AS  THE  NAME  OF  A  TRACK  WHICH  PLOTS  THAT  CIRCLE. 


FORM  OF  PLOT  TRACKING.  <PTRXSPXUNIT  CODE>,  .  CUNIT  CODE> 

A  UNIT  CODE  MAY  BE  (1)  THE  NAME  OF  THE  CRAFT.  OF  WHICH  ONLY  THE  FIRST 
FIVE  LETTERS  NEED  BE  GIVEN;  (2)  THE  TYPE  OR  CLASS  OF  CRAFT  SUCH  AS 
FFG7A;  (3)  THE  TARGET  PARAMETER  OF  THE  CRAFT.  SUCH  AS  FA  FOR  FRIENDLY 
AIR;  (4)  A  FIGURE  NAME  DENOTING  AN  ELLIPSE.  CIRCLE.  OR  LINE  OF  BEARING 
PREVIOUSLY  DEFINED,  SUCH  AS  . LOBO.  UP  TO  15  UNIT  CODES  MAY  BE  ENTERED 
IN  ANY  COMBINATION.  THE  CRAFT  TRACKS  ARE  DRAWN  FROM  THE  TRACKING 
STRUCTURE  AND  PLOTTED  UNDER  CURRENT  CONDITIONS  (MAP,  AREA,  TIME.  ETC.  ) 


FORM  OF  LOCATE  TRACKING:  CLTRXSPXUNI T  CODE>,  .  .CUNIT  CODE> 

A  UNIT  CODE  MAY  BE  (1)  THE  NAME  OF  THE  CRAFT,  OF  WHICH  ONLY  THE  FIRST 
FIVE  LETTERS  NEED  BE  GIVEN;  (2)  THE  TYPE  OR  CLASS  OF  CRAFT  SUCH  AS 
FFG7A;  (3)  THE  TARGET  PARAMETER  OF  THE  CRAFT,  SUCH  AS  FA  FOR  FRIENDLY 
AIR;  (4)  A  FIGURE  NAME  DENOTING  AN  ELLIPSE.  CIRCLE,  OR  LINE  OF  BEARING 
PREVIOUSLY  DEFINED.  SUCH  AS  LOBO.  UP  TO  15  UNIT  CODES  MAY  BE  ENTERED 
IN  ANY  COMBINATION.  THE  CRAFT  POSITIONS  AT  THE  CURRENT  TIME 
(REGARDLESS  OF  WHAT  THE  TIME  WINDOW  IS)  ARE  DRAWN  FROM  THE  TRACKING 
STRUCTURE  AND  PLOTTED  UNDER  CURRENT  CONDITIONS  (MAP,  AREA,  ETC.  ) 
EXCLUDING  TIME. 


FORM  OF  LIST  FILES:  <FILES> 

A  LISTING  OF  ACCESSABLE  FILES  AND  SUBFILES  IS  GIVEN  ALONG  WITH  THEIR 
CORRESPONDING  FILE  CODES.  TO  VIEW  A  PARTICULAR  FILE  (SUBFILES  ARE 
ACCESSABLE  ONLY  FROM  ITS  PARENT  FILE)  ENTER  ITS  CORRESPONDING  FILE 
CODE  WHEN  PROMPTED. 


FORM  OF  SET  TYPE  SIZE  1:  <CSIZE1> 

FOR  A  TEKTRONIX  4014  TERMINAL,  THE  LARGEST  TYPE  SIZE  IS  SELECTED. 
THIS  IS  THE  DEFAULT  SIZE  TYPE  AND  MUST  BE  USED  ON  SINGLE  TYPE  SIZE 
TERMINALS. 


FORM  OF  SET  TYPE  SIZE  2:  <SIZE2> 

FOR  A  TEKTRONIX  4014  TERMINAL.  THE  NEXT  TO  LARGEST  TYPE  SIZE  IS 
SELECTED.  ONLY  TYPE  SIZE  1  SHOULD  BE  USED  ON  SINGLE  TYPE  SIZE 
TERMINALS. 
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FORM  OF  SET  TYPE  SIZE  3:  <SIZE3> 

FOR  A  TEKTRONIX  4014  TERMINAL,  THE  NEXT  TO  SMALLEST  TYPE  SIZE  IS 
SELECTED.  ONLY  TYPE  SIZE  1  SHOULD  BE  USED  ON  SINGLE  TYPE  SIZE 
TERMINALS 


FORM  OF  SET  TYPE  SIZE  4:  <SIZE4> 

FOR  A  TEKTRONIX  4014  TERMINAL,  THE  SMALLEST  TYPE  SIZE  IS  SELECTED. 
ONLY  TYPE  SIZE  1  SHOULD  BE  USED  ON  SINGLE  TYPE  SIZE  TERMINALS. 


FORM  OF  SET  LINES  PER  PAGE:  <PGSIZ> 

ALLOWS  CHANGING  OF  THE  NUMBER  OF  LINES  PER  PAGE  WHEN  VIEWING  FILES. 
THE  DEFAULT  PAGE  SIZE  IS  20  LINES.  NOTE  THAT  MAXIMUM  PAGE  SIZE  VARIES 
WITH  TYPE  SIZE  ON  MULTIPLE  TYPE  SIZE  TERMINALS. 


FORM  OF  HELP:  <?> 

GENERAL  INSTRUCTIONS  FOR  COMMAND  INPUT,  FORMAT.  AND  OBTAINING 
ADDITIONAL  HELP  ARE  GIVEN  ALONG  WITH  A  LISTING  OF  ALL  COMMANDS  AND 
THEIR  FUNCTIONS. 


FORM  FOR  SET  GEOGRAPHIC  AREA.  CCXSPXMAP  CODE> 

MAP  CODE  IS  THE  CODE  OF  A  MAP  AREA  AS  DEFINED  BY  DSPLA.  A  LISTING  OF 
AVAILABLE  MAP  AREAS  AND  THEIR  CODES  MAY  BE  OBTAINED  BY  EXECUTING 
<CXSPXLIST>.  THE  GLOBAL  AREA  WINDOW  IS  SET  TO  THE  BOUNDARIES  OF  THE 
MAP  BUT  LAND  MASS  OUTLINES  ARE  NOT  INCLUDED  IN  FUTURE  DISPLAYS. 


FORM  FOR  REPEAT  LAST  PLOT:  <SP> 

THE  PREVIOUS  PLOT  OR  LOCATE  COMMAND  IS  RE-EXECUTED  UNDER  THE  CURRENT 
CONDITIONS  (MAP,  AREA,  TIME,  ETC.  ). 


FORM  OF  REDUCE  DISPLAY:  <R> 

THE  PREVIOUS  DISPLAY  WILL  BE  REDUCED  BY  THE  FACTOR  SET  BY  <SCALtV 
THE  DEFAULT  FACTOR  IS  2. 


FORM  OF  ENQUIRE:  <E> 

ENQUIRE  PROVIDES  A  DISPLAY  OF  STATUS,  WINDOW,  AND  DATA  RANGE 
INFORMATION. 
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FORM  OF  KILL  DISPLAY:  CKXSPXDISPLAY  NAME> 

DISPLAY  NAME  IS  THE  5  CHARACTER  <MAX>  NAME  UNDER  WHICH  THE  DISPLAY  WAS 
STORED.  STORAGE  OCCUPIED  BY  THE  DISPLAY  IS  RELEASED  AS  IS  THE  DISPLAY 
NAME.  IN  CASE  OF  DUPLICATE  NAMES.  THE  FIRST  NAME  IS  DELETED. 

FORM  OF  RECALL  DISPLAY:  CDXSPXDISPLAY  NAME> 

DISPLAY  NAME  IS  THE  5  CHARACTER  (MAX)  NAME  UNDER  WHICH  THE  DISPLAY  WAS 
STORED.  THE  STORED  DISPLAY  IS  DISPLAYED  ON  RECALL  BUT  MAY  NOT  BE 
OPERATED  ON  (MAGNIFIED.  MOVE  TIME  FORWARD.  ETC.  >.  IN  THE  CASE  OF 
DUPLICATE  NAMES.  THE  FIRST  DISPLAY  IS  DISPLAYED. 


FORM  OF  STORE  DISPLAY:  CSXSPXDISPLAY  NAME> 

DISPLAY  NAME  IS  UP  TO  3  CHARACTERS  WHICH  WILL  IDENTIFY  THE  DISPLAY 
BEING  STORED  FOR  LATER  RECALL  AND  DELETION.  UP  TO  23  DISPLAYS  MAY  BE 
STORED.  DUPLICATE  NAMES  SHOULD  NOT  BE  USED. 


FORM  OF  CHANGE  TIME  WINDOW:  CTXSPXTIME  CODE  1XTIME  CODE  2> 

TIME  CODE  1  MAY  BE  (1)  <I>  TO  ALLOW  KEYBOARD  ENTRY  OF  A  NEW  TIME 
INCREMENT  (DT)  -  NO  CODE  2  IS  USED  WITH  THIS  OPTION*  (2)  <G>  TO  DENOTE 
CHANGING  THE  GLOBAL  TIME  WINDOW.  (3>  <CL>  TO  DENOTE  CHANGING  THE  LOCAL 
TIME  WINDOW.  TIME  CODE  2  MAY  BE  (1)  <SP>  TO  DENOTE  INPUT  OF  NEW 
VALUES  FROM  THE  KEYBOARD;  (2)  <D>  TO  DENOTE  DEFAULT  VALUES  (WHICH  ARE 
AN  INFINITE  TIME  WINDOW). 


FORM  OF  CHANGE  AREA  WINDOW:  <AXSPXAREA  CODE  1XAREA  CODE  2> 

AREA  CODE  1  MAY  BE  (1)  <G>  TO  DENOTE  CHANGING  THE  GLOBAL  AREA  WINDOW. 
(2)  <L>  TO  DENOTE  CHANGING  THE  LOCAL  AREA  WINDOW.  AREA  CODE  2  MAY  BE 
(1)  <SP>  TO  DENOTE  INPUT  OF  NEW  VALUES  FROM  THE  KEYBOARD;  (2)  <C>  TO 
DENOTE  USING  THE  WINDOW  VALUES  USED  OR  COMPUTED  IN  THE  PREVIOUS 
DISPLAY;  (3)  <D>  TO  DENOTE  DEFAULT  VALUES  (WHICH  ARE  ALL  ZERO)  AND 
CAUSE  AN  AREA  WINDOW  TO  BE  COMPUTED  TO  INCLUDE  ALL  DATA  BEING  PLOTTED. 


FORM  OF  MOVE  TIME  FORWARD:  <F> 

THE  TIME  WINDOW  IS  MOVED  AHEAD  BY  AN  INCREMENT,  DT  (SET  BY 
CTXSPXIX.  AND  THE  PREVIOUS  PLOT  COMMAND  IS  EXECUTED  (<5P>). 


FORM  OF  MAGNIFY  DISPLAY:  CMXSPXGRID  CODE> 

THE  PORTION  OF  THE  PREVIOUS  DISPLAY  DEFINED  BY  THE  GRID  CODE  IS 
MAGNIFIED  ACCORDING  TO  THE  FACTOR  SET  BY  <SCALE>.  THE  DEFAULT  FACTOR 
IS  2.  GRID  CODES  ARE  DEFINED  AS  FOLLOWS: 

1  -  UPPER  RIGHT  QUAD  4  -  LOWER  RIGHT  QUAD  7  -  LEFT  HALF 

2  -  UPPER  LEFT  QUAD  3  -  CENTER  8  -  LOWER  HALF 

3  -  LOWER  LEFT  QUAD  6  -  TOP  HALF  9  -  RIGHT  HALF 
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FORM  OF  SET  GEOGRAPHIC  MAP:  CGXSPXMAP  CODE> 

MAP  CODE  IS  THE  CODE  OF  A  MAP  AREA  AS  DEFINED  BY  DSPLA.  A  LISTING  OF 
AVAILABLE  MAP  AREAS  AND  THEIR  CODES  MAY  BE  OBTAINED  BY  EXECUTING 
<GXSP  XL  I  ST> .  THE  GLOBAL  AREA  WINDOW  IS  SET  TO  THE  BOUNDARIES  OF  THE 
MAP  AND  LAND  MASS  OUTLINES  ARE  INCLUDED  IN  FUTURE  DISPLAYS  IN  MERCATOR 
PROJECTION  FORMAT. 


FORM  OF  LOCATE  GROUND  TRUTH:  CLGTXSPXUNIT  CODE>.  .  .  .  . <UNIT  CODE> 

A  UNIT  CODE  MAY  BE  <1>  THE  NAME  OF  THE  CRAFT.  OF  WHICH  ONLY  THE  FIRST 
FIVE  LETTERS  NEED  BE  GIVEN.  <2)  THE  TYPE  OR  CLASS  OF  CRAFT  SUCH  AS 
FFG7A;  < 3 )  THE  TARGET  PARAMETER  OF  THE  CRAFT.  SUCH  AS  FA  FOR  FRIENDLY 
AIR;  (4)  A  FIGURE  NAME  DENOTING  AN  ELLIPSE.  CIRCLE,  OR  LINE  OF  BEARING 
PREVIOUSLY  DEFINED,  SUCH  AS  . LOBO.  UP  TO  13  UNIT  CODES  MAY  BE  ENTERED 
IN  ANY  COMBINATION.  THE  CRAFT  POSITIONS  AT  THE  CURRENT  TIME 
(REGARDLESS  OF  WHAT  THE  TIME  WINDOW  IS)  ARE  DRAWN  FROM  THE  GROUND 
TRUTH  STRUCTURE  AND  PLOTTED  UNDER  CURRENT  CONDITIONS  (MAP,  AREA,  ETC.  ) 
EXCLUDING  TIME. 


FORM  OF  QUIT:  <Q> 

QUIT  CAUSES  A  RETURN  TO  THE  CALLING  PROGRAM. 


FORM  OF  PLOT  GROUND  TRUTH.  CPGTXSPXUNIT  CODE>,  ....  <CUNIT  CODE> 

A  UNIT  CODE  MAY  BE  (1)  THE  NAME  OF  THE  CRAFT,  OF  WHICH  ONLY  THE  FIRST 
FIVE  LETTERS  NEED  BE  GIVEN;  (2)  THE  TYPE  OR  CLASS  OF  CRAFT  SUCH  AS 
FFG7A;  (3)  THE  TARGET  PARAMETER  OF  THE  CRAFT,  SUCH  AS  FA  FOR  FRIENDLY 
AIR;  (4)  A  FIGURE  NAME  DENOTING  AN  ELLIPSE.  CIRCLE,  OR  LINE  OF  BEARING 
PREVIOUSLY  DEFINED.  SUCH  AS  LOBO.  UP  TO  15  UNIT  CODES  MAY  BE  ENTERED 
IN  ANY  COMBINATION.  THE  CRAFT  TRACKS  ARE  DRAWN  FROM  THE  GROUND  TRUTH 
STRUCTURE  AND  PLOTTED  UNDER  CURRENT  CONDITIONS  (MAP.  AREA,  TIME,  ETC.  ) 


INDEX  OF  POSITION  -  DSP LAE 

ENTER  ONE  OF  THE  ABOVE  POSITION  INDICIES  WHICH  IS  TO  BE  USED  AS  A 
SOURCE  FOR  THE  FIGURE  CENTER  OR  ORIGIN.  THE  POSITION  MOST  RECENTLY 
ENTERED  IN  THE  CURSOR  STACK  APPEARS  FIRST,  THE  SECOND  MOST  RECENT 
SECOND.  ETC. 


LONGITUDE  OF  CENTER  OR  ORIGIN  -  DSPLAE 

ENTER  A  LONGITUDE  IN  DEGREES  AND  MINUTES  WITH  DEGREES  SEPARATED  FROM 
MINUTES  BY  A  MINUS.  AND  WEST  LONGITUDE  DENOTED  BY  A  LEADING  MINUS 
SIGN. 
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LATITUDE  OF  CENTER  OR  ORIGIN  -  DSPLAE 


ENTER  A  LATITUDE  IN  DEGREES  AND  MINUTES  WITH  DEGREES  SEPARATED  FROM 
MINUTES  BY  A  MINUS,  AND  SOUTH  LATITUDE  DENOTED  BY  A  LEADING  MINUS 
SIGN. 


SOURCE  OF  INPUT  OF  CENTER  OR  ORIGIN  -  DSPLAE 

ENTER  'C'  TO  DENOTE  THE  CURSOR  STACK  AS  THE  SOURCE  OF  LAT-LON 
POSITIONS;  'K'  TO  DENOTE  INPUT  OF  LAT-LON  FROM  THE  KEYBOARD.  THIS 
POSITION  IS  USED  AS  THE  FIGURE  CENTER  OR  ORIGIN. 


SPEED  FOR  RADIUS  -  DSPLAE 

ENTER  A  SPEED  AS  AN  INTEGRAL  NUMBER  OF  KNOTS.  THIS  SPEED  IS 
MULTIPLIED  BY  THE  CURRENT  VALUE  OF  THE  TIME  INCREMENT,  DT,  TO  ARRIVE 
AT  A  DISTANCE  WHICH  IS  USED  AS  THE  RADIUS  FOR  THE  CIRCLE. 


BEARING  FOR  RHUMB  LINE  -  DSPLAE 

ENTER  THE  BEARING  OF  THE  RHUMB  LINE  AS  POSITIVE  MINUTES  AND  DECREES 
FROM  TRUE  NORTH.  MINUTES  ARE  SEPARATED  FROM  DEGREES  BY  A  MINUS, 


RADIUS  OF  CIRCLE  -  DSPLAE 

ENTER  THE  RADIUS  OF  THE  CIRCLE  AS  AN  INTEGRAL  NUMBER  OF  MILES. 


BEARING  OF  GREAT  CIRCLE  LINE  -  DSPLAE 

ENTER  THE  BEARING  OF  THE  GREAT  CIRCLE  LINE  AS  POSITIVE  MINUTES  AND 
DEGREES  FROM  TRUE  NORTH.  MINUTES  ARE  SEPARATED  FROM  DEGREES  BY  A 
MINUS. 


TIME  OF  ELLIPSE  -  DSPLAE 

ENTER  AN  INTEGRAL  TIME  VALUE  IN  MINUTES  TO  BE  ASSOCIATED  WITH  THE 
ELLIPSE. 


BEARING  OF  ELLIPSE  -  DSPLAE 

ENTER  THE  BEARING  OF  THE  MAJOR  AXIS  OF  THE  ELLIPSE  AS  POSITIVE  DEGREES 
AND  MINUTES  FROM  TRUE  NORTH.  MINUTES  ARE  SEPARATED  FROM  DEGREES  BY  A 
MINUS, 


LENGTH  OF  MINOR  AXIS  OF  ELLIPSE  -  DSPLAE 


ENTER  THE  LENGTH  OF  THE  MINOR  AXIS  OF  THE  ELLIPSE  AS  AN  INTEGRAL 
NUMBER  OF  MILES. 


LENGTH  OF  MAJOR  AXIS  OF  ELLIPSE  -  DSPLAE 

ENTER  THE  LENGTH  OF  THE  MAJOR  AXIS  OF  THE  ELLIPSE  AS  AN  INTEGRAL 
NUMBER  OF  MILES. 


GDXLQN  -  DSPLAA 

ENTER  A  POSITIVE  LONGITUDE  INCREMENT  IN  DEGREES  AND  MINUTES  WHICH  IS 
TO  REPRESENT  ONE  FOURTH  OF  THE  LONGITUDE  SPAN  ACROSS  THE  GLOBAL  AREA 
WINDOW.  MINUTES  AND  DEGREES  ARE  SEPARATED  BY  A  MINUS.  MINUTES 
NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER.  IF  DEGREES  ARE  ZERO.  A  ZERO  MUST 
BE  ENTERED.  GXOLON  +  4<GDXL0N)  THEN  GIVES  THE  ENDING  VALUE  (RIGHT 
BOUNDARY)  OF  THE  GLOBAL  AREA  WINDOW.  THE  TRACKS  OR  PARTS  OF  TRACKS 
THAT  OCCUR  IN  AREAS  OUTSIDE  THE  GLOBAL  AREA  WINDOW  WILL  NOT  BE 
DISPLAYED.  THE  GLOBAL  AREA  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT 
FOLLOWING  THE  SETTING  OF  THE  LOCAL  AREA  WINDOW. 


GDYLAT  -  DSPLAA 

ENTER  A  POSITIVE  LATITUDE  INCREMENT  IN  DEGREES  AND  MINUTES  WHICH  IS  TO 
REPRESENT  ONE  FOURTH  OF  THE  LATITUDE  SPAN  ACROSS  THE  GLOBAL  AREA 
WINDOW.  MINUTES  AND  DEGREES  ARE  SEPARATED  BY  A  MINUS.  MINUTES 
NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER.  IF  DEGREES  ARE  ZERO,  A  ZERO  MUST 
BE  ENTEncD.  GYOLAT  +  4 (GDYLAT )  THEN  GIVES  THE  ENDING  VALUE  (UPPER 
BOUNDARY)  OF  THE  GLOBAL  AREA  WINDOW.  THE  TRACKS  OR  PARTS  OF  TRACKS 
THAT  OCCUR  IN  AREAS  OUTSIDE  THE  GLOBAL  AREA  WINDOW  WILL  NOT  BE 
DISPLAYED.  THE  GLOBAL  AREA  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT 
FOLLOWING  THE  SETTING  OF  THE  LOCAL  AREA  WINDOW. 


DYLAT  -  DSPLAA 

ENTER  A  POSITIVE  LATITUDE  INCREMENT  IN  DEGREES  AND  MINUTES  WHICH  IS  TO 
REPRESENT  ONE  FOURTH  OF  THE  LATITUDE  SPAN  ACROSS  THE  LOCAL  AREA 
WINDOW.  MINUTES  AND  DEGREES  ARE  SEPARATED  BY  A  MINUS,  MINUTES 
NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER.  IF  DEGREES  ARE  ZERO,  A  ZERO  MUST 
BE  ENTERED.  YOLAT  «■  4 (DYLAT)  THEN  GIVES  THE  ENDING  VALUE  (UPPER 
BOUNDARY)  OF  THE  LOCAL  AREA  WINDOW.  THE  TRACKS  OR  PARTS  OF  TRACKS 
THAT  OCCUR  IN  AREAS  OUTSIDE  THE  LOCAL  AREA  WINDOW  WILL  NOT  BE 
DISPLAYED.  ONCE  THE  LOCAL  AREA  WINDOW  IS  SET.  IT  AFFECTS  ONLY  THE 
FIRST  FOLLOWING  DISPLAY. 


DXLON  -  DSPLAA 


ENTER  A  POSITIVE  LONGITUDE  INCREMENT  IN  DEGREES  AND  MINUTES  WHICH  IS 
TO  REPRESENT  ONE  FOURTH  OF  THE  LONGITUDE  SPAN  ACROSS  THE  LOCAL  AREA 
WINDOW.  MINUTES  AND  DEGREES  ARE  SEPARATED  BY  A  MINUS,  MINUTES 
NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER.  IF  DEGREES  ARE  ZERO.  A  ZERO  MUST 
BE  ENTERED.  XOLON  +  4 (DXLON)  THEN  GIVES  THE  ENDING  VALUE  (RIGHT 
BOUNDARY)  OF  THE  LOCAL  AREA  WINDOW.  THE  TRACKS  OR  PARTS  OF  TRACKS 
THAT  OCCUR  IN  AREAS  OUTSIDE  THE  LOCAL  AREA  WINDOW  WILL  NOT  BE 
DISPLAYED.  ONCE  THE  LOCAL  AREA  WINDOW  IS  SET.  IT  AFFECTS  ONLY  THE 
FIRST  FOLLOWING  DISPLAY. 


GXOLON  -  DSPLAA 

ENTER  A  LONGITUDE  IN  DEGREES  AND  MINUTES  AT  WHICH  THE  GLOBAL  AREA 
WINDOW  WILL  BEGIN  (LEFT  BOUNDARY).  MINUTES  AND  DEGREES  ARE  SEPARATED 
BY  A  MINUS.  AND  WEST  LONGITUDES  ARE  DENOTED  BY  A  LEADING  MINUS 
SIGN.  MINUTES  NEED  NOT  BE  ENTERED  IF  ZERO,  HOWEVER,  IF  DEGREES  ARE 
ZERO,  A  ZERO  MUST  BE  ENTERED.  THE  TRACKS  OR  PARTS  OF  TRACKS  THAT 
OCCUR  IN  AREAS  OUTSIDE  THE  GLOBAL  AREA  WINDOW  WILL  NOT  BE  DISPLAYED. 
THE  GLOBAL  AREA  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT  FOLLOWING  THE 
SETTING  OF  THE  LOCAL  AREA  WINDOW. 


GYOLAT  -  DSPLAA 

ENTER  A  LATITUDE  IN  DEGREES  AND  MINUTES  AT  WHICH  THE  GLOBAL  AREA 
WINDOW  WILL  BEGIN  (LOWER  BOUNDARY).  MINUTES  AND  DEGREES  ARE  SEPARATED 
BY  A  MINUS.  AND  SOUTH  LATITUDES  ARE  DENOTED  BY  A  LEADING  MINUS 
SIGN.  MINUTES  NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER.  IF  DEGREES  ARE 
ZERO.  A  ZERO  MUST  BE  ENTERED.  THE  TRACKS  OR  PARTS  OF  TRACKS  THAT 
OCCUR  IN  AREAS  OUTSIDE  THE  GLOBAL  AREA  WINDOW  WILL  NOT  BE  DISPLAYED. 
THE  GLOBAL  AREA  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT  FOLLOWING  THE 
SETTING  OF  THE  LOCAL  AREA  WINDOW. 


YOLAT  -  DSPLAA 

ENTER  A  LATITUDE  IN  DEGREES  AND  MINUTES  AT  WHICH  THE  LOCAL  AREA  WINDOW 
WILL  BEGIN  (LOWER  BOUNDARY).  MINUTES  AND  DEGREES  ARE  SEPARATED  BY  A 
MINUS.  AND  SOUTH  LATITUDES  ARE  DENOTED  BY  A  LEADING  MINUS  SIGN. 
MINUTES  NEED  NOT  BE  ENTERED  IF  ZERO,  HOWEVER,  IF  DEGREES  ARE  ZERO.  A 
ZERO  MUST  BE  ENTERED.  THE  TRACKS  OR  PARTS  OF  TRACKS  THAT  OCCUR  IN 
AREAS  OUTSIDE  THE  LOCAL  AREA  WINDOW  WILL  NOT  BE  DISPLAYED.  ONCE  THE 
LOCAL  AREA  WINDOW  IS  SET.  IT  AFFECTS  ONLY  THE  FIRST  FOLLOWING  DISPLAY. 
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XOLON  -  DSPLAA 


ENTER  A  LONGITUDE  IN  DEGREES  AND  MINUTES  AT  WHICH  THE  LOCAL  AREA 
WINDOW  WILL  BEGIN  (LEFT  BOUNDARY).  MINUTES  AND  DEGREES  ARE  SEPARATED 
BY  A  MINUS#  AND  WEST  LONGITUDES  ARE  DENOTED  BY  A  LEADING  MINUS 
SIGN.  MINUTES  NEED  NOT  BE  ENTERED  IF  ZERO.  HOWEVER#  IF  DEGREES  ARE 
ZERO.  A  ZERO  MUST  BE  ENTERED.  THE  TRACKS  OR  PARTS  OF  TRACKS  THAT 
OCCUR  IN  AREAS  OUTSIDE  THE  LOCAL  AREA  WINDOW  WILL  NOT  BE  DISPLAYED. 
ONCE  THE  LOCAL  AREA  WINDOW  IS  SET#  IT  AFFECTS  ONLY  THE  FIRST  FOLLOWING 
DISPLAY. 

GTIMEF  -  DSPLAT 

ENTER  AN  INTEGRAL  TIME  IN  MINUTES  THAT  THE  GLOBAL  TIME  WINDOW  IS  TO 
END  AT.  TRACKS  OR  PARTS  OF  TRACKS  THAT  OCCUR  AT  TIMES  AFTER  GTIMEF 
WILL  NOT  BE  DISPLAYED  (UNLESS  THE  LOCATE  COMMAND  IS  USED).  THE  GLOBAL 
TIME  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT  THE  FIRST  DISPLAY  FOLLOWING 
THE  SETTING  OF  THE  LOCAL  TIME  WINDOW. 


GTIMEI  -  DSPLAT 

ENTER  AN  INTEGRAL  TIME  IN  MINUTES  THAT  THE  GLOBAL  TIME  WINDOW  IS  TO 
BEGIN  AT.  TRACKS  OR  PARTS  OF  TRACKS  THAT  OCCUR  AT  TIMES  BEFORE  GTIMEI 
WILL  NOT  BE  DISPLAYED  (UNLESS  THE  LOCATE  COMMAND  IS  USED).  THE  GLOBAL 
TIME  WINDOW  IS  USED  AT  ALL  TIMES  EXCEPT  THE  FIRST  DISPLAY  FOLLOWING 
THE  SETTING  OF  THE  LOCAL  TIME  WINDOW. 


TIMEF  -  DSPLAT 

ENTER  AN  INTEGRAL  TIME  IN  MINUTES  THAT  THE  LOCAL  TIME  WINDOW  IS  TO  END 
AT.  TRACKS  OR  PARTS  OF  TRACKS  THAT  OCCUR  AT  TIMES  AFTER  TIMEF  WILL 
NOT  BE  DISPLAYED  (UNLESS  THE  LOCATE  COMMAND  IS  USED)  IF  THE  LOCAL  TIME 
WINDOW  IS  USED.  ONCE  THE  LOCAL  TIME  WINDOW  IS  SET.  IT  AFFECTS  ONLY 
THE  FIRST  FOLLOWING  DISPLAY. 


TIME I  -  DSPLAT 

ENTER  AN  INTEGRAL  TIME  IN  MINUTES  THAT  THE  LOCAL  TIME  WINDOW  IS  TO 
BEGIN  AT.  TRACKS  OR  PARTS  OF  TRACKS  THAT  OCCUR  AT  TIMES  BEFORE  TIME! 
WILL  NOT  BE  DISPLAYED  (UNLESS  THE  LOCATE  COMMAND  IS  USED)  IF  THE  LOCAL 
TIME  WINDOW  IS  USED.  ONCE  THE  LOCAL  TIME  WINDOW  IS  SET.  IT  AFFECTS 
ONLY  THE  FIRST  FOLLOWING  DISPLAY. 

DT  -  DSPLAT 

ENTER  AN  INTEGRAL  TIME  INCREMENT  (DT)  IN  MINUTES.  DT  IS  USED  IN  A 
NUMBER  OF  PLACES.  WHEN  THE  'F '  AND  'B '  COMMANDS  OR  FUNCTION  KEYS  ARE 
USED.  DT  IS  THE  AMOUNT  THAT  THE  TIME  WINDOW  IS  MOVED  FORWARD  OR 
BACKWARD.  DT  IS  USED  IN  DEFINING  A  RADIUS;  THE  SPEED  IS  MULTIPLIED  BY 
DT  TO  GIVE  A  RADIUS  OF  THE  RESULTING  CIRCLE.  DT  IS  THE  TIME  INCREMENT 
BETWEEN  POINTS  OF  A  TRACK  GENERATED  BY  THE  'K'  FUNCTION  KEY. 
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SPEED  FOR  RANGE*  BEARING*  TIME  -  DSP LA 

ENTER  AN  INTEORAL  SPEED  IN  KNOTS  TO  BE  USED  AS  THE  SPEED  OF  THE  CRAFT 
FOR  CALCULATING  TIME  OF  TRAVEL  BETWEEN  THE  POINTS  OF  THE  TRACK  IN  THE 
TRACK  STACK. 

TRACK  NUMBER  -  DSPLA 

ENTER  A  3  DIGIT  INTEGER  WHICH  WILL  BECOME  THE  TRACK  NUMBER  OF  THE 
TRACK.  THE  NUMBER  SHOULD  BE  UNIQUE.  TRACK  NUMBERS  ARE  LISTED  ALONG 
WITH  OTHER  TRACK  HEADER  INFORMATION  WHEN  DISPLAYING  THE  TRACK  FILE. 
AN  EDITING  FEATURE  IS  AVAILABLE  FOR  CHANGING  THE  HEADER  AND  TRACK  DATA 
WHEN  DISPLAYING  THE  TRACK  FILE. 


TRACK  ALTITUDE  -  DSPLA 

ENTER  THE  ALTITUDE  OF  THE  CRAFT  GENERATING  THE  TRACK.  THE  ALTITUDE 
SHOULD  BE  AN  INTEGRAL  NUMBER  OF  FEET  AND  WILL  BE  KEPT  CONSTANT  THROUGH 
TRACK  GENERATION. 

INITIAL  TRACK  TIME  -  DSPLA 

ENTER  THE  TIME  OF  THE  INITIAL  POINT  OF  THE  TRACK  AS  AN  INTEGRAL  NUMBER 
OF  MINUTES.  SUCCEEDING  POINTS  WILL  BE  A  TIME  'DT'  AFTER  THE 
PRECEEDING  POINT.  DT  (TIME  INCREMENT)  MUST  BE  SET  PRIOR  TO  GENERATION 
OF  A  TRACK  AND  IS  CHANGED  BY  COMMAND. 


SCALE  -  DSPLA 

ENTER  THE  FACTOR  BY  WHICH  DISPLAYS  ARE  MAGNIFIED  OR  REDUCED  AS  THE 
NUMBER  OF  DEOREES  AND  MINUTES  WHICH  ARE  TO  CORRESPOND  TO  1-00  DEGREES 
IN  THE  OLD  DISPLAY.  DEGREES  AND  MINUTES  ARE  TO  BE  SEPARATED  BY  A 
MINUS.  THE  DISPLAY  WILL  BE  MAGNIFIED  OR  REDUCED  BY  A  FACTOR  OF 
THE  NEW  SCALE  VALUE  WHENEVER  A  MAGNIFY  OR  REDUCE  COMMAND  IS  EXECUTED. 


NUMBER  OF  LINES  PER  PAGE  -  DSPLA 

ENTER  THE  NUMBER  OF  LINES  PER  PAGE  FOR  FILE  DISPLAY  AS  AN  INTEGER 
NUMBER.  DEFAULT  PACE  SIZE  IS  20  LINES.  NOTE  THAT  AS  THE  TYPE  SIZE  IS 
DECREASED.  THE  MAXIMUM  NUMBER  OF  LINES  PER  PAGE  INCREASES.  AND  VICA 
VERSA. 

FILE  CODE  -  DSPLA 

TO  VIEW  ONE  OF  THE  ABOVE  LISTED  FILES.  ENTER  THE  CORRESPONDING  FILE 
CODE.  SUBFILE  CODES  MAY  NOT  BE  ENTERED  EXCEPT  WITHIN  THE  VIEWING  OF 
ITS  PARENT  FILE.  ONCE  THE  FILE  IS  DISPLAYED.  USE  'F'  TO  VIEW 
SUCCEEDING  PAGES;  'B'  TO  VIEW  PRECEEDINO  PAGES;  'R '  TO  RETURN  FROM 
VIEWINO  THAT  PAOE.  'E'  TO  EDIT  A  LINE;  'Q'  TO  QUIT  VIEWING;  'C'  TO 
RETURN  TO  COMMAND  MODE  IN  DSPLA;  AND  ANY  SUBFILE  CODES  TO  VIEW 
SUBFILES.  TYPE  SIZE  MAY  BE  CHANOED  BY  COMMAND  OR  FUNCTION  KEY. 
TEKTRONIX  4012  TERMINALS  MUST  USE  TYPE  SIZE1. 
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Appendix  B 
Memory  Structure 


B-l 
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Th e  following  is  a  list  of  the  most  important  relations  and 

basenode  types  in  the  demonstration  system.  The  format  used 

is  <BASENODE  TYPE>  <RELATION  which  descends  from  that  type>*. 

PLATFORMS  have  NAME,  CLASS.  CATEGORY,  TYPE.  MEDIUM.  MAX-SPEED, 
CRUISE-SPEED,  HOSTILITY.  WARLIKE.  SIGHTINGs,  FIRST-SIGHTING, 
LAST— SIOHTINO. 

SIGHTINGs  have  LATITUDE,  LONGITUDE.  TIME,  COURSE,  SPEED, 

RANGE.  BEARING,  SOURCE.  MESSAGE.  SUCCESSOR 

STORMs  have  VERTICES 

MERCHANTLANEs  have  VERTICES,  START,  DESTINATION,  TO-PORT. 
FROM-PORT 

VERTICES  have  LATITUDE,  LONGITUDE 

The  technical  data  base  uses  relations  much  like  those  of  PLATFORMS, 
with  the  following  changes:  there  are  no  sightings,  and  all  relation 
names  are  prr'-acM  with  T,  e.  g.  TYPE  becomes  TTYPE. 
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These  are  the  oracles  that  are  defined  for  the  demonstration  system. 


<  SAME— AS 

CLAMBDA  (W  U) 
(EQ  U  U3 ) 


( REACHABLE-BY-A-COMBATANT 

CLAMBDA  < FSBLIP  DMY)  (*  NOBIND  " 1 S-Nov-78  10:09") 

(PROG  (YES) 

CMAPC  COMBATANTS  (FUNCTION  (LAMBDA  (CMBT) 

(PROG  (SITE) 

(CASSERT  CMBT  (QUOTE  */.  ) 

(QUOTE  COMBATANT) 

1.  0) 

(SETQ  SITE  (CAAR  (RETRIEVE2  (QUOTE  LAST-SIGHTING) 

CMBT) ) > 


(COND 

(YES 


(COND 

( (W1THIN-REACH  FSBLIP  SITE) 

(CASSERT  FSBLIP  (QUOTE  WITHIN-REACH) 
SITE  1.  0) 

( SETQ  YES  T ) > 

(T  (CASSERT  FSBLIP  (QUOTE  WITHIN-REACH) 
SITE  -1.  03 

(RETURN  T3 ) 


( ROUGHLY-THE-SAME-SPEED-AS 
CLAMBDA  (G1  Q2) 

(AND  ( LESSP  (MASSAGE  Q1 ) 

(PLUS  (MASSAGE 
1.  5)  ) 

(GREATERP  (MASSAGE  Q1 
(DIFFERENCE 


Q2 ) 


(MASSAGE  Q2> 
1.  53) 


( ROUOHLY-THE— SAME-COURSE-AS 
CLAMBDA  (Q1  02) 

(AND  (LESSP  (MASSAGE  Q1 ) 

(PLUS  (MASSAGE 

4.  5)  ) 

(GREATERP  (MASSAGE  01 
(DIFFERENCE 


Q2 ) 


> 

(MASSAGE  02) 
4  53) 


(*  NOBIND  "  6-Dec-78 


18  49"  ) 
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( IN-LANE 

[LAMBDA  (POS  MLANE) 

(FGREATERP  5.0  (LANERANGE  CEVAL  (CAAR  (RETRIEVE2 

(QUOTE  LATITUDE) 

(CAAR  (RETRIEVE2  (QUOTE  START) 

MLANE 3 

CEVAL  (CAAR  (RETRIEVE2 

(QUOTE  LONGITUDE) 

(CAAR  (RETRIEVE2  (QUOTE  START) 

MLANE] 

CEVAL  (CAAR  (RETR1EVE2 

(QUOTE  LATITUDE) 

(CAAR  (RETRIEVE2  (QUOTE  DESTINATIOf' 

MLANE] 

CEVAL  (CAAR  (RETRIEVE2 

(QUOTE  LONGITUDE) 

(CAAR  (RETRIEVE2  (QUOTE  DESTINATIQI' 

MLANE! 

(EVAL  (CAAR  (RETRIEVE2  (QUOTE  LATITUDE) 

POS) ) ) 

(EVAL  (CAAR  (RETRIEVE2  (QUOTE  LONGITUDE) 

POS]  ) 

( INSIDE 

C LAMBDA  (POS  STORM) 

(APPLY  (QUOTE  INTERIOR) 

(APPEND  (GETPOS  POS) 

(CONS  (GETVERS  STORM] ) 

(GREATER-THAN 
C LAMBDA  ( Q1  Q2) 

(GREATERP  (MASSAGE  Q1 ) 

(MASSAGE  Q2] ) 

(LESS-THAN 

C LAMBDA  (Q1  Q2) 

( LESSP  (MASSAGE  Q1 ) 

(MASSAGE  Q2] ) 


(WITHIN-REACH 
C LAMBDA  (SI  S2) 

(APPLYRULE  (QUOTE  GOOD-PATH]) 


(BLOCKEDFROM 

C LAMBDA  (SI  S2> 

<*  Tests  if  some  patrol  report  is  inconsistent  with  a 
passage  from  SI  to  S2> 


(PROC  (SUCCESSFLG) 

CMAPC 

PATROLS 

(FUNCTION  (LAMBDA  (PTL) 

(CQND 

((NOT  (POSS-REPORT  SI  S2  PTL>> 

(MAPC 

(RETRIEVE2  (QUOTE  SIGHTING) 

PTL) 

(FUNCTION  (LAMBDA  (SNG-AS) 

(PROG  ( (SNG  (CAR  SNG-AS))) 

(MAPC 

(RETRIEVE2  (QUOTE  SUCCESSOR) 


SNG) 

(FUNCTION  (LAMBDA  (SNG2-AS) 

(PROG  ( (SNG2  (CAR  SNG2-AS ) ) ) 

(COND 

((OR  (CROSSPATHS  SI  S2  SNG  SNG2) 
(GRAZE  SI  S2  SNG  5NG2>) 
(COND 

((NOT  (WENT-BEFORE  SI  S2  SNG 

SNG2) ) 

(COND 

((NOT  (WENT-AFTER  SI  S2 

SNG 
SNG2  >  > 

(SETQ  SUCCESSFLG  T3 


(RETURN  SUCCESSFLG I ) 


(SIMPLY-WITHIN-REACH 
C LAMBDA  (SI  S2) 

(PROC  ( (LT1  (LOC-TIME  51)) 

( LT2  (LOC-TIME  S2>)) 
(RETURN  (SWR  LT1  LT23) 


Appendix  C 


The  following  is  the  contents  of  memory  et  the  start  of 
the  demonstration  scenario. 

SURFACE  is  the  TMEDIUM  of  CV 
COMBATANT  is  the  T AGGRESS 1 VENESS  of  CV 
N0223  is  the  SUCCESSOR  of  N0222 
AIR  is  the  TMEDIUM  of  FIGHTER 
480  is  the  TIME  of  N0220 

COMBATANT  is  the  TAGGRESS I VENESS  of  FIGHTER 

MILITARY  is  the  TTYPE  of  FIGHTER 

US  is  the  TFLAG  of  F16-A 

FRIENDLY  is  the  THOSTILITY  of  F16-A 

FIGHTER  is  the  TCATEGORY  of  F16-A 

F16-A  is  the  TCLASS  of  HUMMER 

SURFACE  is  the  TMEDIUM  of  MERCHANT 

SURFACE  is  the  TMEDIUM  of  CLG 

-27.  54  is  the  LONGITUDE  of  N0225 

62.37  is  the  LATITUDE  of  N0225 

-27.06  is  the  LONGITUDE  of  N0224 

62.49  is  the  LATITUDE  of  N0224 

-26.66  is  the  LONGITUDE  of  N0223 

62.68  is  the  LATITUDE  of  N0223 

-26.2  is  the  LONGITUDE  of  N0222 

62.84  is  the  LATITUDE  of  N0222 

-25.69  is  the  LONGITUDE  of  N0221 

62.98  is  the  LATITUDE  of  N0221 
-25.  13  is  the  LONGITUDE  of  N0220 
63.05  is  the  LATITUDE  of  N0220 
-24.61  is  the  LONGITUDE  of  N0219 
63.  19  is  the  LATITUDE  of  N0219 
-24.09  is  the  LONGITUDE  of  N0218 
63.36  is  the  LATITUDE  of  N0218 
-23.  73  is  the  LONGITUDE  of  N0217 
63.  57  it  the  LATITUDE  of  N0217 
-23.  43  is  the  LONGITUDE  of  N0216 
63.81  is  the  LATITUDE  of  N0216 
-23.38  is  the  LONGITUDE  of  N0215 

63.99  is  the  LATITUDE  of  N0215 
780  is  the  TIME  of  N0225 

720  is  the  TIME  of  N0224 

660  is  the  TIME  of  N0223 

600  is  the  TIME  of  N0222 

540  is  the  TIME  of  N0221 

420  is  the  TIME  of  N0219 

360  is  the  TIME  of  N021B 

300  is  the  TIME  of  N0217 

240  is  the  TIME  of  N0216 

180  is  the  TIME  of  N0215 

N0225  is  the  LAST-SIGHTING  of  PERRY 

N0225  is  the  SUCCESSOR  of  N0224 

N0224  is  the  SUCCESSOR  of  N0223 

N0222  is  the  SUCCESSOR  of  N0221 

N0221  is  the  SUCCESSOR  of  N0220 
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N0220  is  the  SUCCESSOR  of  N0219 

N0219  is  the  SUCCESSOR  of  N0218 

N0218  is  the  SUCCESSOR  of  N0217 

N0217  is  the  SUCCESSOR  of  N0216 

N0216  is  the  SUCCESSOR  of  N0215 

N0215  is  the  SUCCESSOR  of  S I GHT I NGO205 

-23.38  is  the  LONGITUDE  of  SIGHTING0203 

63.99  is  the  LATITUDE  of  SIGHTING0205 

0.0  is  the  RANGE  of  SIGHTING0205 

0.0  is  the  BEARING  of  SIGHTING0205 

INTERNAL  is  the  SOURCE  of  SIGHTING0203 

0.0  is  the  TIME  of  SIGHTING0205 

SIGHTING0205  is  the  FIRST-SIGHTING  of  PERRY 

SIGHTING0205  is  the  LAST-SIGHTING  of  PERRY 

SIGHTING0205  is  a  SIGHTING  of  PERRY 

PERRY  is  the  NAME  of  PERRY 

PERRY  is  the  CLASS  of  PERRY 

FFG  is  the  CATEGORY  of  PERRY 

30.0  is  the  MAX-SPEED  of  PERRY 

15.0  is  the  CRUISE-SPEED  of  PERRY 

NAVY  is  the  TYPE  of  PERRY 

SURFACE  is  the  MEDIUM  of  PERRY 

FRIENDLY  is  the  HOSTILITY  of  PERRY 

COMBATANT  is  the  WARLIKE  of  PERRY 

US  is  the  FLAG  of  PERRY 

CV  is  the  TCATEGORY  of  KIEV 

CLG  is  the  TCATEGORY  of  KYNDA 

CG  is  the  TCATEGORY  of  KRESTA 

FF  is  the  TCATEGORY  of  KNOX 

CV  is  the  TCATEGORY  of  KITTYHAWK 

AO  is  the  TCATEGORY  of  KAZBEK 

DDC  is  the  TCATEGORY  of  KASHIN 

30.0  is  the  TMAX— SPEED  of  KIEV 

16.0  is  the  TCRUISE-SPEED  of  KIEV 

UR  is  the  TFLAG  of  KIEV 

HOSTILE  is  the  THOSTILITY  of  KIEV 

35.0  is  the  T MAX-SPEED  of  KYNDA 

17.5  is  the  TCRUISE-SPEED  of  KYNDA 

UR  is  the  TFLAG  of  KYNDA 

HOSTILE  is  the  THOSTILITY  of  KYNDA 

33.0  is  the  T MAX-SPEED  of  KRESTA 

16.  5  is  the  TCRUISE-SPEED  of  KRESTA 

UR  is  the  TFLAG  of  KRESTA 

HOSTILE  is  the  THOSTILITY  of  KRESTA 

27.0  is  the  TMAX-SPEED  of  KNOX 

16.0  is  the  TCRUISE-SPEED  of  KNOX 

US  is  the  TFLAG  of  KNOX 

FRIENDLY  is  the  THOSTILITY  of  KNOX 

35.0  is  the  TMAX-SPEED  of  KITTYHAWK 

16.0  is  the  TCRUISE-SPEED  of  KITTYHAWK 
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US  is  the  TFLAC  of  KITTYHAWK 

FRIENDLY  is  the  THOSTILITY  of  KITTYHAWK 

14.0  is  the  T MAX-SPEED  of  KAZBEK 

10.0  is  the  TCRUISE-SPEED  of  KAZBEK 

UR  is  the  TFLAC  of  KAZBEK 

HOSTILE  is  the  THOSTILITY  of  KAZBEK 

35.0  is  the  TMAX-SPEED  of  KASHIN 

18.0  is  the  TCRUISE-SPEED  of  KASHIN 

UR  is  the  TFLAC  of  KASHIN 

HOSTILE  is  the  THOSTILITY  of  KASHIN 

NON-COMBATANT  is  the  TAGGRESSIVENESS  of  MERCHANT 

CIVILIAN  is  the  TTYPE  of  MERCHANT 

COMBATANT  is  the  TAGGRESSIVENESS  of  CC 

NAVY  is  the  TTYPE  of  CG 

NAVY  is  the  TTYPE  of  CV 

COMBATANT  is  the  TAGGRESSIVENESS  of  AO 

NAVY  is  the  TTYPE  of  AO 

COMBATANT  is  the  TAGGRESSIVENESS  of  CLG 
NAVY  is  the  TTYPE  of  CLG 
COMBATANT  is  the  TAGGRESSIVENESS  of  FF 
NAVY  is  the  TTYPE  of  FF 

COMBATANT  is  the  TAGGRESSIVENESS  of  DDC 
NAVY  is  the  TTYPE  of  DDC 
KIEV  is  the  TCLASS  of  MINSK 
KYNDA  is  the  TCLASS  of  ADM I R AL-GOLO VKO 
KRESTA  is  the  TCLASS  of  ADMIRAL-MAKARQV 
KNOX  is  the  TCLASS  of  RATHBURNE 
KNOX  is  the  TCLASS  of  MEYERCORD 
KNOX  is  the  TCLASS  of  CONNOLE 
KITTYHAWK  is  the  TCLASS  of  CONSTELLATION 
KAZBEK  is  the  TCLASS  of  DESNA 
KASHIN  is  the  TCLASS  of  PROVORNY 
VERTEX0131  is  the  DESTINATION  of  LANE3 
VERTEX0131  is  the  SUCCESSOR  of  VERTEX0126 
-6.72  is  the  LONGITUDE  of  VERTEX0131 
63.79  is  the  LATITUDE  of  VERTEX0131 
VERTEX0131  is  a  VERTEX  of  LANE3 
VERTEX0126  is  the  SUCCESSOR  of  VERTEX0121 
-13. 96  is  the  LONGITUDE  of  VERTEX0126 
62.99  is  the  LATITUDE  of  VERTEX0126 
VERTEX0126  is  a  VERTEX  of  LANE3 
VERTEX0121  is  the  SUCCESSOR  of  VERTEX01 16 
-19.37  is  the  LONGITUDE  of  VERTEX0121 
62.08  is  the  LATITUDE  of  VIRTEX0121 
VERTEX0121  is  a  VERTEX  of  LANE3 
VERTEX01 16  is  the  SUCCESSOR  of  VERTEX01 1 1 
-23.79  is  the  LONGITUDE  of  VERTEX01 16 
61.  17  is  the  LATITUDE  of  VERTEX01 16 
VERTEX01 16  is  a  VERTEX  of  LANE3 
VERTEX01 1 1  is  the  SUCCESSOR  of  VERTEX0106 
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-29.01  is  the  LONGITUDE  of  VERTEX0111 
59.77  is  the  LATITUDE  of  VERTEX0111 
VERTEX01 1 1  is  a  VERTEX  of  LANE 3 
VERTEX0106  is  the  SUCCESSOR  of  VERTEX0101 
-32.  09  is  the  LONGITUDE  of  VERTEX0106 
58.  56  is  the  LATITUDE  of  VERTEX0106 
VERTEX0106  is  a  VERTEX  of  LANE 3 
VERTEX0101  is  the  SUCCESSOR  of  VERTEX0096 
-36.  36  is  the  LONGITUDE  of  VERTEX0101 
57.23  is  the  LATITUDE  of  VERTEX0101 
VERTEX0101  is  a  VERTEX  of  LANE 3 
VERTEX0096  is  the  START  of  LANE3 
-39.  84  is  the  LONGITUDE  of  VERTEX0096 
55.66  is  the  LATITUDE  of  VERTEX0096 
VERTEX0096  is  a  VERTEX  of  LANE3 
MURMANSK  is  the  TO-PORT  of  LANE3 
ST.JOHNS  is  the  FROM-PORT  of  LANE3 
VERTEX0088  is  the  DESTINATION  of  LANE2 
VERTEX 0088  is  the  SUCCESSOR  of  VERTEX0083 
-22.99  is  the  LONGITUDE  of  VERTEX0088 
64.01  is  the  LATITUDE  of  VERTEX0088 
VERTEX0088  is  a  VERTEX  of  LANE2 
VERTEX0083  is  the  SUCCESSOR  of  VERTEX0078 
-26.0  is  the  LONGITUDE  of  VERTEX0083 
63.  19  is  the  LATITUDE  of  VERTEX0083 
VERTEX 0083  is  a  VERTEX  of  LANE2 
VERTEX0078  is  the  SUCCESSOR  of  VERTEX0073 
-29.94  is  the  LONGITUDE  of  VERTEX0078 
61.85  is  the  LATITUDE  of  VERTEX0078 
VERTEX0078  is  a  VERTEX  of  LANE2 
VERTEX0073  is  the  SUCCESSOR  of  VERTEX0068 
-33.75  is  the  LONGITUDE  of  VERTEX0073 
60.37  is  the  LATITUDE  of  VERTEX0073 
VERTEX0073  is  a  VERTEX  of  LANE2 
VERTEX0068  is  the  SUCCESSOR  of  VERTEX 0063 
-37.9  is  the  LONGITUDE  of  VERTEX0068 
58.45  is  the  LATITUDE  of  VERTEX0068 
VERTEX0068  is  a  VERTEX  of  LANE2 
VERTEX 0063  is  the  START  of  LANE2 
-42.25  is  the  LONGITUDE  of  VERTEX0063 
56.04  is  the  LATITUDE  of  VERTEX0063 
VERTEX 0063  is  a  VERTEX  of  LANE2 
REYKJAVIK  is  the  TO-PORT  of  LANE2 
ST.JOHNS  is  the  FROM-PORT  of  LANE2 
VERTEX0055  is  the  DESTINATION  of  LANE1 
VERTEX0055  is  the  SUCCESSOR  of  VERTEX0050 
-41.7  is  the  LONGITUDE  of  VERTEX0055 
58.  14  is  the  LATITUDE  of  VERTEX0055 
VERTEX0055  is  a  VERTEX  of  LANE1 
VERTEX0050  is  the  SUCCESSOR  of  VERTEX0045 
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-40.  16  is  the  LONGITUDE  of  VERTEX0050 
59.21  is  the  LATITUDE  of  VERTEX0050 
VERTEX0050  is  a  VERTEX  of  LANE1 
VERTEX0045  is  the  SUCCESSOR  of  VERTEX0040 
-37.76  is  the  LONGITUDE  of  VERTEX0045 
60.64  is  the  LATITUDE  of  VERTEX0045 
VERTEX0045  is  a  VERTEX  of  LANE1 
VERTEX0040  is  the  SUCCESSOR  of  VERTEX0035 
-35.08  is  the  LONGITUDE  of  VERTEX0040 
62.  11  is  the  LATITUDE  of  VERTEX0040 
VERTEX0040  is  a  VERTEX  of  LANE1 
VERTEX0035  is  the  SUCCESSOR  of  VERTEX 0030 
-32.47  is  the  LONGITUDE  of  VERTEX0035 
63.34  is  the  LATITUDE  of  VERTEX0035 
VERTEX0035  is  a  VERTEX  of  LANE1 
VERTEX 0030  is  the  SUCCESSOR  of  VERTEX0025 
-30.47  is  the  LONGITUDE  of  VERTEX0030 
64. 19  is  the  LATITUDE  of  VERTEX0030 
VERTEX 0030  is  a  VERTEX  of  LANE1 
VERTEX0025  is  the  SUCCESSOR  of  VERTEX0020 
-28.  53  is  the  LONGITUDE  of  VERTEX0025 
65.02  is  the  LATITUDE  of  VERTEX0025 
VERTEX0025  is  a  VERTEX  of  LANE1 
VERTEX0020  is  the  SUCCESSOR  of  VERTEX0015 
-25.32  is  the  LONGITUDE  of  VERTEX0020 
66.  11  is  the  LATITUDE  of  VERTEX0020 
VERTEX0020  is  a  VERTEX  of  LANE1 
VERTEXOOl 5  is  the  SUCCESSOR  of  VERTEX0010 
-23.  11  is  the  LONGITUDE  of  VERTEXOOl 5 
66.79  is  the  LATITUDE  of  VERTEXOOl 5 
VERTEXOOl 5  is  a  VERTEX  of  LANE1 
VERTEX0010  is  the  SUCCESSOR  of  VERTEX0005 
-16.  57  is  the  LONGITUDE  of  VERTEX0010 
68.39  is  the  LATITUDE  of  VERTEX0010 
VERTEXOOl O  is  a  VERTEX  of  LANE1 
VERTEX0O05  is  the  START  of  LANE1 
-13.82  is  the  LONGITUDE  of  VERTEX0005 
68.93  is  the  LATITUDE  of  VERTEX0005 
VERTEX0005  is  a  VERTEX  of  LANE1 
REYKJAVIK  is  the  TO-PORT  of  LANE1 
MURMANSK  is  the  FROM-PORT  of  LANE1 
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These  ere  the  productions  used  in  the  demonstration  system. 


NAME:  ID1 


CONDITIONS: 

(GETS  X  (RETRIEVE2 
(GETS  Y  (RETRIEVE2 
(UNLESS  (RETRIEVE2 
(GETS  Z  (RETRIEVE2 


( QUOTE  %  )  ( QUOTE  PLATFORM ) > ) 
(QUOTE  NAME)  X>> 

(QUOTE  CLASS)  X)> 

'TCLASS  Y) ) 


ACTION: 

(ASSERT  Z  'CLASS  X) 


CONFIDENCE:  1.0 

DESCRIPTION: 

NIL 


NAME:  ID2 


CONDITIONS: 

(GETS  X  (RETRIEVES 
(GETS  Y  (RETRIEVE2 
(UNLESS  (RETRIEVE2 
(GETS  Z  (RETRIEVE2 


(QUOTE  7.  )  (QUOTE  PLATFORM) )  > 
(QUOTE  CLASS)  X)) 

(QUOTE  CATEGORY)  X)) 

(QUOTE  TCATEGORY)  Y) ) 


ACTION: 

(ASSERT  Z  (QUOTE  CATEGORY)  X) 


CONFIDENCE:  1.0 

DESCRIPTION: 

NIL 


NAME:  ID3 


CONDITIONS: 

(GETS  X  (RETRIEVE2 
(GETS  Y  ( RETRIEVE2 
(UNLESS  (RETRIEVE2 
(GETS  Z  (RETRIEVE2 


(QUOTE  %  )  (QUOTE  PLATFORM))) 
(QUOTE  CLASS)  X)) 

(QUOTE  CRUISE-SPEED)  X)) 
(QUOTE  T CRU I SE-SPEED )  Y)> 


ACTION: 

(ASSERT  Z  (QUOTE  CRUISE-SPEED)  X) 


CONFIDENCE:  1.0 

DESCRIPTION: 

NIL 


72 


NAME:  ID4 


CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  %  )  (QUOTE  PLATFORM) >> 
(GETS  Y  (RETRIEVE2  (QUOTE  CLASS)  X>> 

(UNLESS  (RETRIEVE2  (QUOTE  MAX-SPEED)  X)) 

(GETS  Z  (RETRIEVE2  (QUOTE  TMAX-SPEED)  Y)) 

ACTION: 

(ASSERT  Z  (QUOTE  MAX-SPEED)  X) 

CONFIDENCE:  1.0 

DESCRIPTION: 

NIL 


NAME:  IDS 


CONDITIONS: 

(GETS  X  (RETRIEVE2 
(GETS  Y  (RETRIEVE2 
(UNLESS  (RETRIEVE2 
(GETS  Z  (RETRIEVE2 


(QUOTE  7.  )  (QUOTE  PLATFORM))) 
(QUOTE  CLASS)  X)) 

(QUOTE  FLAO)  X>) 

(QUOTE  TFLAG)  Y) ) 


ACTION: 

(ASSERT  Z  (QUOTE  FLAG)  X) 


CONFIDENCE:  1.0 

DESCRIPTION: 

NIL 


NAME:  ID6 


CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE 
(GETS  Y  (RETRIEVE2  (QUOTE 
(UNLESS  (RETRIEVE2  (QUOTE 
(GETS  Z  (RETRIEVE2  (QUOTE 


7.  )  (QUOTE  PLATFORM))) 
CLASS)  X)) 

HOSTILITY)  X>> 
THOSTILITY)  Y>> 


ACTION: 

(ASSERT  Z  (QUOTE  HOSTILITY)  X) 


CONFIDENCE:  1.0 


DESCRIPTION: 

NIL 


NAME:  107 


CONDITIONS: 

(GETS  X  (RETRIEVE2 
(GETS  Y  (RETRIEVE2 
(UNLESS  (RETRIEVE2 
(GETS  Z  (RETRIEVE2 


(QUOTE  X  )  (QUOTE  PLATFORM))) 
(QUOTE  CATEGORY)  X)) 

(QUOTE  WARLIKE)  X)) 

(QUOTE  T AGGRESSIVENESS)  Y)> 


ACTION: 

(ASSERT  Z  (QUOTE  WARLIKE)  X) 


CONFIDENCE:  1.0 

DESCRIPTION. 

NIL 


NAME:  ID8 


CONDITIONS. 

(GETS  X  (RETRIEVE2  (QUOTE 
(GETS  Y  (RETRIEVE2  (QUOTE 
(UNLESS  (RETRIEVE2  (QUOTE 
(GETS  Z  (RETRIEVE2  (QUOTE 


X  >  (QUOTE  PLATFORM))) 
CATEGORY)  X)) 

TYPE)  X)) 

TTYPE)  Y) > 


ACTION: 

(ASSERT  Z  (QUOTE  TYPE)  X) 


CONFIDENCE.  1.0 


DESCRIPTION: 

NIL 


NAME:  ID9 
CONDITIONS: 

(GETS  X  (RETRIEVE2  ' X  'PLATFORM)) 
(GETS  Y  (RETRIEVE2  'CATEGORY  X)) 
(UNLESS  (RETRIEVE2  'MEDIUM  X>) 
(GETS  Z  (RETRIEVE2  'TMEDIUM  Y) ) 

ACTION: 

(ASSERT  2  'MEDIUM  X) 

CONFIDENCE.  1.  0 

DESCRIPTION. 

NIL 


NAME:  ID— NOTWRLK 


CONDITIONS: 

(GETS  X  (RETRIEVE2  'X  'PLATFORM)) 
(GETS  Y  (RETRIEVE2  'WARLIKE  X>) 
(GETOP  Z  TAGGRESSIVENESS) 

(UNLESS  (RETRIEVE3  Z  'SAME-AS  V)) 

ACTION: 

(ASSERT  Z  'WARLIKE  X) 

CONFIDENCE:  -I.  0 

DESCRIPTION: 

NIL 


NAME:  ID-NOTMED 
CONDITIONS: 

(GETS  X  (RETRIEVE2  '%  'PLATFORM)) 
(GETS  Y  (RETRIEVE2  'MEDIUM  X)) 
(GETOP  Z  TMEDIUM) 

(UNLESS  (RETRIEVE3  Z  'SAME-AS  Y)) 

ACTION: 

(ASSERT  Z  'MEDIUM  X) 

CONFIDENCE:  -1.0 

DESCRIPTION: 

NIL 


NAME:  I D-NOTFLG 
CONDITIONS: 

(GETS  X  (RETRIEVE2  'X  'PLATFORM) > 
(GETS  Y  (RETRIEVE2  'FLAG  X)) 

(GETOP  Z  TFLAG ) 

(UNLESS  (RETRIEVE3  Z  'SAME-AS  Y>) 
ACTION: 

(ASSERT  Z  'FLAG  X) 

CONFIDENCE:  -1.0 

DESCRIPTION: 

NIL 
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NAME:  I D-NOTHOST 


CONDITIONS: 

(GETS  X  (RETRIEVE2  'X  'PLATFORM)) 
(GETS  Y  (RETRIEVE2  'HOSTILITY  X)) 
(GETOP  Z  THOSTILITY) 

(UNLESS  (RETRIEVE3  Z  'SAME-AS  Y)) 

ACTION: 

(ASSERT  Z  'HOSTILITY  X) 

CONFIDENCE:  -1.0 

DESCRIPTION: 

NIL 


NAME:  SLOWER-THAN-A-MERCHANT 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  7.  >  (QUOTE  CONTACTS)  >) 

(GETS  Z  (RETRIEVE2  (QUOTE  SIGHTING)  X)) 

(GETS  W  (RETRIEVE2  (QUOTE  SPEED)  Z>> 

(RETRIEVE3  W  (QUOTE  LESS-THAN)  9) 

ACTION: 

(ASSERT  'MERCHANT  'CATEGORY  X) 

CONFIDENCE:  15 

DESCRIPTION: 

If  the  speed  of  a  contact  is  less  than  10  knots>  than  the  contact  is 
unlikely  (-.  15)  to  be  a  merchant. 


NAME:  FASTER-THAN-A-MERCHANT 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  7.  )  (QUOTE  CONTACTS))) 

(GETS  Z  (RETRIEVE2  (QUOTE  SIGHTING)  X)) 

(OETS  W  (RETRIEVE2  (QUOTE  SPEED)  Z)) 

(RETR1EVE3  W  (QUOTE  GREATER-THAN )  25) 

ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  25 

DESCRIPTION. 

If  the  speed  of  a  contact  is  greater  than  25  knots*  then  the  contact  is 
unlikely  (-.25)  to  be  a  merchant. 
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NAME:  SPEED-CHANGED 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  X  )  (QUOTE  CONTACTS))) 

(GETS  Z  (RETRIEVE2  (QUOTE  SIGHTING)  X)) 

(GETS  U  (RETR1EVE2  (QUOTE  SUCCESSOR)  Z)) 

(GETS  Q  (RETRIEVE2  (QUOTE  SPEED)  Z)) 

(GETS  R  (RETRIEVE2  (QUOTE  SPEED)  U) ) 

(UNLESS  (RETRIEVE3  Q  (QUOTE  ROUGHLY-THE-SAME-SPEED-AS)  R)) 

ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  3 

DESCRIPTION: 

If  a  contact  changes  speed,  it's  unlikely  to  be  a  merchant  (-.3). 


NAME:  COURSE-CHANGED 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  X  )  (QUOTE  CONTACTS))) 

(GETS  Z  (RETRIEVE2  (QUOTE  SIGHTINO)  X)) 

(GETS  U  (RETRIEVE2  (QUOTE  SUCCESSOR)  Z>> 

(GETS  Q  (RETRIEVE2  (QUOTE  COURSE)  Z>> 

(GETS  R  (RETRIEVE2  (QUOTE  COURSE)  W) ) 

(UNLESS  (RETRIEVE3  Q  (QUOTE  ROUGHLY-THE-SAME-COURSE-AS)  R>> 

ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  -.  3 
DESCRIPTION: 

If  a  contact  changes  course,  it's  unlikely  (-.3)  to  be  a  merchant. 
NAME:  A-D I ST ANT-POPUP 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  X  >  (QUOTE  CONTACTS))) 

(0ET8  Z  (RETRIEVE2  (QUOTE  FIRST-SIGHTING)  X)) 

(GETS  Q  (RETRIEVE2  (QUOTE  RANGE)  Z)) 

(RETRIEVE3  Q  (QUOTE  GREATER-THAN)  30) 

ACTION: 

(ASSERT  'MERCHANT  'CATEGORY  X) 

CONFIDENCE:  -.  2 
DESCRIPTION: 

If  the  first  sighting  of  a  contact  is  more  than  30  miles  from  the 
home  ship,  then  it's  probably  not  (-.2)  a  merchant. 
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NAME:  A— CLOSE-POPUP 


CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  X  )  (QUOTE  CONTACTS))) 

(GETS  Z  (RETRIEVE2  (QUOTE  FIRST-SIGHTING)  X>> 

(GETS  Q  (RETRIEVE2  (QUOTE  RANGE)  Z)) 

(RETRIEVE3  Q  (QUOTE  LESS-THAN)  15) 

ACTION: 

(ASSERT  'MERCHANT  'CATEGORY  X) 

CONFIDENCE:  -.  2 
DESCRIPTION: 

If  the  first  sighting  of  a  contact  is  less  than  15  miles  from  the 
home  ship*  then  it's  probably  not  (-.2)  a  merchant. 


NAME:  INSIDE-A-STORM 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  7.  )  (QUOTE  PLATFORM))) 

(GETS  Z  (RETRIEVE2  (QUOTE  SIGHTING)  X)) 

(GETS  S  (RETRIEVE2  (QUOTE  7.  )  (QUOTE  STORM))) 

(RETRIEVE3  Z  (QUOTE  INSIDE)  S) 

ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  -.  25 
DESCRIPTION: 

If  a  sighting  of  a  contact  is  in  a  storm,  reduce  (-.  25)  the  confidence 
that  the  contact  is  a  merchant 
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NAME:  A-MATCH-FOR-A-KNOWN-MERCHANT 


CONDITIONS. 

(GETS  X  (RETRIEVE2  (QUOTE  X  )  (QUOTE  CONTACTS))) 

(CETOP  Y  MERCHANTS) 

(GETS  L2  (RETRIEVE2  (QUOTE  LAST-SIGHTING)  X)) 

(GETS  L4  (RETRIEVE2  (QUOTE  LATITUDE)  L2>) 

(GETS  L3  (RETRIEVE2  (QUOTE  LONGITUDE)  L2)) 

(GETS  L6  (RETRIEVE2  (QUOTE  COURSE)  L2> ) 

(GETS  L7  (RETRIEVE2  (QUOTE  SPEED)  L2>> 

(UNLESS  (RETRIEVE3  L7  (QUOTE  GREATER-THAN)  23)) 

(UNLESS  (RETRIEVE3  L7  (QUOTE  LESS-THAN)  9)) 

(GETS  L8  (RETRIEVE2  (QUOTE  TIME)  L2)) 

(GETS  M2  (RETRIEVE2  (QUOTE  LAST-SIGHTING)  Y)> 

(GETS  M4  (RETRIEVE2  (QUOTE  TIME)  M2) > 

(GETS  M3  (RETRIEVE2  (QUOTE  LATITUDE)  M2)) 

(GETS  M6  (RETRIEVE2  (QUOTE  LONGITUDE)  M2)> 

(RETRIEVES  L6  (QUOTE  ROUGHLY-THE-SAME-COURSE-AS)  (BEARING  (MASSAGE  M3) 
(MASSAGI  M6)  (MASSAGE  L4)  (MASSAGE  L3>)) 

(RETRIEVE3  L7  (QUOTE  ROUGHLY-THE-SAME-SPEED-AS)  (SPEED  (QUOTIENT 
(MASSAGE  M4)  60.0)  (QUOTIENT  (MASSAGE  L8)  60.0)  (DISTANCE  (MASSAGE  M3) 

(MASSAGE  M6 )  (MASSAGI  L4)  (MASSAGE  L3>))> 

ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  5 

DESCRIPTION: 

If  th«  course  and  speed  of  a  contact  match  the  course  and  speed  that  a 
known  merchant  would  have  used  to  reach  the  contact*  then  increase  (-*-.3) 
the  confidence  that  the  contact  is  a  merchant. 


NAME:  ID-LANE 
CONDITIONS: 

(QETOP  M  MERCHANTLANE) 

(GETS  X  (RETRIEVES  (QUOTE  X  )  (QUOTE  PLATFORM))) 

(UNLESS  (RETRIEVE3  (QUOTE  AIR)  (QUOTE  MEDIUM)  X)) 

(GETS  Y  (RETRIEVE2  (QUOTE  SIGHTING)  X>> 

(RETRIEVE3  Y  (QUOTE  IN-LANE)  M) 

ACTION: 

(ASSERT  Y  (QUOTE  INSIDE-A-MERCHANTLANE )  (QUOTE  DUMMY)) 

CONFIDENCE:  1.0 
DESCRIPTION: 

If  a  position  of  a  contact  is  in  a  merchantlane*  mark  it  as  such. 
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NAME:  OUTS 1 DE-ALL-MERCHANTLANES 


CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  %  )  (QUOTE  PLATFORM))) 

(UNLESS  (RETRIEVE3  (QUOTE  AIR)  (QUOTE  MEDIUM)  X)) 

(GETS  Y  (RETRIEVE2  (QUOTE  SIGHTING)  X)) 

(UNLESS  (RETRIEVE3  Y  (QUOTE  INSIDE-A-MERCHANTLANE)  (QUOTE  DUMMY))) 
ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  2 

DESCRIPTION: 

If  any  position  of  a  contact  is  outside  a  mere hant lane,  then  decrease 
(-.2)  the  confidence  that  the  contact  is  a  merchant. 


NAME:  NOT-REACHABLE-BY-ANY-COMBATANT 
CONDITIONS: 

(GETS  X  (RETRIEVE2  (QUOTE  '/.  )  (QUOTE  CONTACTS))) 

(GETS  Y  (RETRIEVE2  (QUOTE  FIRST-SIGHTING)  X)) 

(UNLESS  (RETRIEVE3  Y  (QUOTE  REACHABLE-BY-A-COMBATANT )  (QUOTE  DUMMY))) 
ACTION: 

(ASSERT  (QUOTE  MERCHANT)  (QUOTE  CATEGORY)  X) 

CONFIDENCE:  45 

DESCRIPTION: 

If  no  combatants  could  have  reached  the  position  of  a  contact,  then 
the  confidence  that  the  contact  is  a  merchant  is  increased  (+.45). 


NAME:  GOOD -PATH 
CONDITIONS: 

(RETRIEVES  FSBLIP  '5IMPLY-WITHIN-REACH  SITE) 

(UNLESS  (RETRIEVE3  FSBLIP  'BLDCKEDFROM  SITE)) 

ACTION: 

NIL 

CONFIDENCE:  1.0 
DESCRIPTION: 

If  a  sighting  of  a  contact  is  simply  within  reach  of  a  combatant  and 
is  not  blocked  form  the  combatant  (say.  by  a  patrol  overflight),  then 
succeed. 
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Appendix  E 


These  are  the  messages  for  the  demonstration  system. 

((TOR  0  CENTERLAT  65.  83  CENTERLON  -24.45  VERTICES  ((65.3  -27.75) 

(65.  99  -28.  45) 

(66. 88  -27. 41) 

(67.  11  -24.  48) 

(66.  5  -21.  57) 

(65.  46  -20.  68) 

(64.  67  -22.  12) 

(64.  67  -25.  66)  )  ) 

(WORKING-NAME  MERCHANT3  SOURCE  EXTERNAL  TOR  360  CONTENT 

(CATEGORY:  MERCHANT  SPEED:  10  LATITUDE:  62.97  LONGITUDE: 

-26.73  TOS:  180  SOURCE:  EXTERNAL)) 

(WORKING-NAME  BLUE  SOURCE  EXTERNAL  TOR  400  CONTENT 

(TOS:  150  LATITUDE:  61.8  LONGITUDE:  -20.87  SOURCE:  EXTERNAL)) 
(WORKING-NAME  C0NTACT1  LATITUDE  63.34  LONGITUDE  -25.52  TOS  420  SOURCE  RADAR) 
(WORKING-NAME  C0NTACT1  LATITUDE  63.37  LONGITUDE  -25.41  TOS  440  SOURCE  RADAR) 
(WORKING-NAME  C0NTACT1  LATITUDE  63.4  LONGITUDE  -25.31  TOS  460  SOURCE  RADAR) 
(WORKING-NAME  RED  TOR  465  SOURCE  EXTERNAL  CONTENT 

(LATITUDE:  65.15  LONGITUDE:  -28.21  SOURCE:  EXTERNAL  TOS:  420)) 
(WORKING-NAME  C0NTACT1  LATITUDE  63.43  LONGITUDE  -25.21  TOS  480  SOURCE  RADAR) 
(WORKING-NAME  RED  SOURCE  EXTERNAL  TOR  510  CONTENT 

(TOS:  210  LATITUDE:  65.7  LONGITUDE:  -26.61  SOURCE.  EXTERNAL)) 
(WORKING-NAME  RED  TOR  580  SOURCE  EXTERNAL  CONTENT 

(LATITUDE:  66. 175  LONGITUDE:  -25. 2  TOS:  30  SOURCE:  EXTERNAL)) 
(WORKING-NAME  BLUE  SOURCE  EXTERNAL  TOR  630  CONTENT 

(SOURCE.  EXTERNAL  TOS:  585  CATEGORY:  CV  LATITUDE:  61.47 
LONGITUDE:  -24.53)) 

(WORKING-NAME  MERCHANT3  SOURCE  PATROL 17  TOR  680  CONTENT 

(TOS:  605  LATITUDE:  63.608  LONGITUDE:  -24.55  SOURCE:  PATR0L17 
CATEGORY.  MERCHANT)) 

(WORKING- NAME  RED  SOURCE  PATROL 17  TOR  685  CONTENT 

(LATITUDE:  63.81  LONGITUDE.  -27.95  TOS:  615  SOURCE.  PATROL 17 
CLASS:  KYNDA) ) 

(WORKING-NAME  C0NTACT2  TOS  695  LATITUDE  62.  17  LONGITUDE  -26.  12  SOURCE  RADAR) 
(WORKING-NAME  C0NTACT2  LATITUDE  62.23  LONGITUDE  -26.26  TOS  705  SOURCE  RADAR) 

(WORKING-NAME  C0NTACT2  LATITUDE  62.33  LONGITUDE  -26.47  TOS  720  SOURCE  RADAR) 

(WOPKING-NAME  C0NTACT3  LATITUDE  62.88  LONGITUDE  -27.43  TOS  720  SOURCE  RADAR) 

(WORKING-NAME  C0NTACT2  LATITUDE  62.39  LONGITUDE  -26.6  TOS  730  SOURCE  RADAR) 
(WORKING-NAME  BLUE  SOURCE  EXTERNAL  TOR  730  CONTENT 

(LONGITUDE:  -23.66  LATITUDE:  61.21  TOS:  510  SOURCE:  EXTERNAL)) 
(WORKING-NAME  C0NTACT3  LATITUDE  62.78  LONGITUDE  -27.38  TOS  730  SOURCE  RADAR) 

(WORKING-NAME  C0NTACT2  LATITUDE  62.46  LONGITUDE  -26.74  TOS  740  SOURCE  RADAR) 

(WORKING-NAME  C0NTACT3  LATITUDE  62.7  LONGITUDE  -27.33  TOS  740  SOURCE  RADAR) 
(WORKING-NAME  PATROL 17  SOURCE  EXTERNAL  TOR  747  CONTENT 

(TOS:  600  LATITUDE:  64.33  LONGITUDE:  -22.24  SOURCE:  EXTERNAL 
NAME:  HUMMER  CLASS:  F16-A  CATEGORY:  FIGHTER)) 
(WORKING-NAME  PATROL 17  SOURCE  EXTERNAL  TOR  747  CONTENT 

(TOS:  605  LATITUDE:  64.  08  LONGITUDE:  -24.  42  SOURCE:  EXTERNAL)) 
(WORKING-NAME  PATROL 17  SOURCE  EXTERNAL  TOR  747  CONTENT 

(LATITUDE:  63.  64  LONGITUDE:  -27.  93  TOS:  615  SOURCE.  EXTERNAL)) 
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(WORK I NO-NAME  PATROL 17  SOURCE  EXTERNAL  TOR  748  CONTENT 

(LATITUDE:  62.11  LONGITUDE:  -36.41  TOS:  640  SOURCE.  EXTERNAL) 
(WORKING-NAME  PATROL 17  SOURCE  EXTERNAL  TOR  748  CONTENT 

(SOURCE:  EXTERNAL  TOS:  643  LATITUDE:  61.77  LONGITUDE:  -37.97) 
(WORKING-NAME  C0NTACT2  LATITUDE  62.  52  LONGITUDE  -26.  89  TOS  730  SOURCE  RADAR 

(WORKING-NAME  C0NTACT3  LATITUDE  62.  61  LONGITUDE  -27.  26  TOS  730  SOURCE  RADAR 

(WORKING-NAME  C0NTACT2  LATITUDE  62.  39  LONGITUDE  -27.  03  TOS  760  SOURCE  RADAR 

(WORKING-NAME  C0NTACT3  LATITUDE  62.  33  LONGITUDE  -27  2  TOS  760  SOURCE  RADAR) 

(WORKING-NAME  C0NTACT2  LATITUDE  62.63  LONGITUDE  -27.  17  TOS  770  SOURCE  RADAR 

(WORKING-NAME  CONTACT3  LATITUDE  62.  44  LONGITUDE  -27.  14  TOS  770  SOURCE  RADAR 

(WORKING-NAME  BLUE  SOURCE  EXTERNAL  TOR  772  CONTENT 

(SOURCE:  EXTERNAL  TOS:  330  LATITUDE:  61.5  LONGITUDE:  -22.3)) 
(WORKING-NAME  C0NTACT2  LATITUDE  62.  72  LONGITUDE  -27.  29  TOS  780  SOURCE  RADAR 

(WORKING-NAME  C0NTACT3  LATITUDE  62.  35  LONGITUDE  -27.  07  TOS  780  SOURCE  RADAR 


Appendix  F 
Annotated  Code 


NEWSNET 

STAMMER 

EXPLAIN 

SUPP 

DSPLA 

FORK 

WITHINR 

EASE 
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(FILECREATED  "12-Feb-79  15:02:15"  <RBECHTAL>EXPLAIN.  .  53  36407 


changes  to:  EXPLAINVARS  VARIABLE  SPECIALTYPE  ST2  ST2B  ST3  ST4  ST4B 
previous  date:  "10-Uan-79  16:49:24“  <RBECHTAL>EXPLAIN.  .  52) 


(PRETTYCOMPRINT  EXPLAINCOMS) 

(RPAQQ  EXPLAINCOMS  C(VARS  *  EXPLAINVARS) 

(FNS  *  EXPLAINFNS) 

(P  (LOAD  (QUOTE  <PMORR IS>ATN.  COM3 ) 

(RPAQQ  EXPLAINVARS  (MISCELLANEOUS  VARIABLE  SPEC  I ALRELS  SPECIALTYPE  ST1  ! 

ST2  ST2B  ST3  ST4  ST4B ) ) 


(RPAQQ  MISCELLANEOUS  (*) ) 

(RPAQQ  VARIABLE  («>> 

(RPAQQ  SPEC I ALRELS  ( INSIDE-A-MERCHANTLANE  REACHABLE-BY-A-COMBATANT ) > 
(RPAQQ  SPECIALTYPE  (PLATFORM  STORM)) 


(RPAQQ  ST1  <""  (((QUOTE  (IF  AND)) 

ST2 

(SETQ  CNDFLG  T) 

•I  II  J 

((QUOTE  UNLESS) 

ST2 

(AND  (SETQ  CNDFLG  T) 

(SETQ  UNLESSFLG  T>> 

II  II  J 

((QUOTE  THEN) 

ST2 

(OR  (SETQ  CNDFLG) 

(SETQ  RTYPE  (QUOTE  ASSERT))) 
"  '*)))) 


(RPAQQ  ST2  (""  (((QUOTE  *) 

ST2B  NIL  "" ) 

(MISCELLANEOUS  ST3  (SETQ  ARG1  (KWOTE  KEY)) 
"  "  >  )  )  ) 


(RPAQQ  ST2B  ( 


((VARIABLE  ST3  [AND 


(SETQ  ARG1  KEY) 

(COND  ( ( MEMB  ARG1  VARS)) 
(T  (SETQ  NEWVARS 


)  )  )  ) 
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(SETQ 


( ADD1 
VARS 
(CONS 
RTYPE 


NEWVARS) ) 


ARG1  VARS)) 
(SETQ  RTYPE  (QUOTE 

RETRIEVE2) ) 
(SETQ  GETVAR  ARG13 


(RPAQQ  ST3  ("“ 

(((QUOTE  (IS  A  AN  THE)) 

ST3  NIL  "  “) 

(SPECIALTYPE  T  CCOND  ( (LESSP  NEW VARS  1) 

(TERPRI) 

(PRIN1 

"ERROR  -  no  variables  to  bind.  Try  again. ") 
(TERPRI)) 

(T  (SETQ  LNE  (LIST  (QUOTE  GETOP) 

ARG1  KEY I 


(SUBTYPES  T  CCOND  ((LESSP  NEWVARS  1) 

(TERPRI) 

(PRIN1 

"ERROR  -  no  variables  to  bind.  Try  again.”) 
(TERPRI)) 

(T  (SETQ  LNE  (LIST  (QUOTE  GETOP) 

ARG1  KEY! 


( SPEC I ALRELS 
T 

CCOND  C (LESSP  NEWVARS  1) 

(COND  CUNLESSFLG 

(SETQ  LNE  (LIST  (QUOTE  UNLESS) 

(LIST  (QUOTE  RETRIEVES) 
ARG1 

(KWOTE  KEY) 

(QUOTE  (QUOTE  DUMMY 1 

(T  (SETQ  LNE  (LIST  RTYPE  ARG1  (KWOTE  KEY) 

(QUOTE  (QUOTE  DUMMY 3 
(T  (SETQ  LNE  (LIST  (QUOTE  GETS) 

GETVAR 

(LIST  (QUOTE  RETRIEVE2) 

(KWOTE  KEY) 

(QUOTE  (QUOTE  DUMMY 3 


(RELATIONS  ST 4  (SETQ  REL  KEY) 
"  ”>))) 


(RPAQQ  ST 4  (""  (((QUOTE  OF) 

ST4  NIL  -  ") 

((QUOTE  *) 

ST4B  NIL 

(MISCELLANEOUS  T  CCOND 

C ( AND  UNLESSFLG  (LESSP  NEWVARS  1)) 
(SETQ  LNE  (LIST  (QUOTE  UNLESS) 
(LIST  (QUOTE 

RETRIEVE3) 

AROl 

85  (KWOTE  REL) 

(KWOTE  KEY! 

C (LESSP  NEWVARS  1) 

(SETQ  LNE  (LIST  RTYPE  ARG1 


(KWOTE  REL) 

(KWOTE  KEY 3 
(UNLESSFLO  (TERPRI) 

(PRIN1 

"ERROR  -  unbound  variable  in  UNLESS.  Try  again. ") 

(TERPRI) ) 

(T  (SETS  LNE 

(LIST  (QUOTE  GETS) 

GETVAR 

(LIST  (QUOTE  RETRIEVE2) 
(KWOTE  REL) 

(KWOTE  KEY3 

«« 

"  ) )  ) ) 

(RPAQQ  ST4B  ("" 

( (VARIABLE 
T 

CAND  ( SETQ  ARG2  KEY) 

(COND  C ( MEMB  ARG2  VARS) 

(COND  E ( LESSP  NEW VARS  1) 

(SETQ 

LNE 

(COND 

(UNLESSFLO 

(LIST  (QUOTE  UNLESS) 

(LIST  (QUOTE  RETRIEVE3) 

AROl 

(KWOTE  REL) 

ARG2) > ) 

(T  (LIST  RTYPE  AROl  (KWOTE  REL) 

ARG23 

(T  (SETQ  LNE  (LIST  (QUOTE  GETS) 

GETVAR 

(LIST  (QUOTE  RETRIEVE2) 
(KWOTE  REL) 

ARG23 

(T  (SETQ  GETVAR  ARG2) 

(SETQ  NEW VARS  (ADD1  NEWVARS) ) 

(SETQ  VARS  (CONS  ARG2  VARS)) 

(COND  ((OREATERP  NEWVARS  1) 

(TERPRI) 

( PR  INI 

"ERROR  -  too  many  unbound  variables.  Try  again. ") 
(TERPRI) ) 

(T  (SETQ  LNE 

(LIST  (QUOTE  GETS) 

GETVAR 

(LIST  (QUOTE  RETRIEVE2B) 
(KWOTE  REL) 

AROl  3 

II 

"  ) ) ) )  86 

(RPAQQ  EXPLAINFNS  (EXPLAIN  HELPEXPLAIN  TELLABT  WHOl  WHERE 1  WHOSE  WHY1 

I STUFF  RESETWHY  OOBBLESPEC  GETASSRS  GETRULES 


NEW-LINE  NEWRULE  NICE ATOM  NICEASSR  NICERULES 
APDES  UNAPDES  OAMF  GAMF1  PRETTYATOM 
PRETTYDESCR  GETAGOODIE  PRINTLI ) ) 


T 

\ 


< DEFINES 


(EXPLAIN 

C LAMBDA  NIL 

(PROG  ((LASSERS  (CONS  CONCZ)) 

LARULES  ACTIVEAS  (ASTFLG  T>> 


(*  NOBIND 

"10-Uan-79  14:39") 


(*  EXPLAIN  is  the  driver  for  the  explaination 
system.  It  relies  on  ASKUSER  to  make  recognition  and 
prompting  possible.  ) 


(TERPRI ) 

(PRIN1  "Explanation  system 
Type  HELP  for  help.  CR  to  exit.  '*) 

ELP  (TERPRI) 

(COND 

(<EQ  C ASKUSER 

NIL  NIL  (QUOTE  (QUESTION)) 
(QUOTE  ((“ 

”  "Leaving  EXPLAIN. 

"  RETURN  (PROGN  (TEKWAIT) 

(QUOTE  DONE))) 

(H  “elp 

"  RETURN  (HELPEXPLAIN)) 


CE  "valuate 

"  RETURN  (PROGN  (CLEARBUF) 

(PRINT  (EVAL  (READ! 

(T  "ell  me  about  “  RETURN  ( TELLABT ) ) 

CD  "isplay  command  level 

"  RETURN  (COND 

CDSPLAYFLG  (COND 

(DUALFLG  (PR INI 

"Enter  display  commands  at  the  Tektronix.  ") 

(TERPRI) 
(DSPERASE) 
(DSPTOP ) > 

(T  (DSPTOP  T  3 

(T  (PRIN1  "no  display  available 

"  1 

(0  "K 

"  RETURN  (RESETWHY)) 


(Z  "ap 

RETURN  (SETQ  LASSERS  < SETQ  LARULES))) 

(I  "s  "  RETURN  (I STUFF)) 

(WHY  "  "  RETURN 

(PROGN  (PR INI  (COND 

(ASTFLG 

"  (assertion  number)  " ) 

(T  "  (rule  number)  "))) 

87  ( WHY  1 ) ) ) 

(WHOSE  "  "  RETURN  (WHOSE)) 


(WHO  "  is  u  RETURN  (UH01>> 

(WHAT  "  is  M  RETURN  (WHOl)) 

(WHERE  “  is  "  RETURN  (WHERE1)) 

(N  "ew  rule  definition 

"  RETURN  (NEWRULE3 

(QUOTE  DONE)) 

(RETURN) ) 

(T  (QO  ELP ) ) > 

(GO  ELP 3 ) 

(HELPEXPLAIN 
E LAMBDA  NIL 

(PROG  (PRMT) 

( PR INI 

“  EXPLAIN  is  provided  to  allow  you  to  ask  questions  about  the  contents 
of  the  data  base  (memory)  and  how  they  got  there.  Question  forms  are: 

1.  WHO  is 

2.  WHAT  i  s 

3.  WHOSE 

4.  WHERE  is 

5.  WHY 

6.  Is 

7.  Tell  me  about 

8.  Display  command  level 

9.  OK 

10.  Zap 

11.  Help 

12.  Miscellaneous  (not  a  command*  but  further  information) 

Typing  a  carriage  return  to  a  QUESTION  ?  prompt  will  cause  an  exit 
from  EXPLAIN. 

For  further  information  about  a  particular  query  form*  type  its  numbe 
Type  O  to  leave  Help. 

"  ) 

HE1  ( PRIN1  "More  about  #"  ) 

( SETQ  PRMT  (RATOM)) 

(COND 

((OR  DUALFLG  (NOT  DSPLAYFLG ) >  > 

(T  (DSPERASE))) 

(COND 

( (EQP  PRMT  0) 

(RETURN) ) 

((EQP  PRMT  1) 

(PRIN1 

"WHO  is  88 

Format:  WHO  is  (THE. A, AN)  <RELATION>  (OF)  <ITEM> 

Ca*  an.  the.  and  of  are  optional! 

Examples:  WHO  is  LESS-THAN  7 

WHO  is  INSIDE  ST0RM0005 


(*  NOBIND 

“30— Nov— 7B  12:56") 


I 


Some  relations  do  not  require  that  an  item  be  specified.  At 
present*  these  are  INSIDE-A-MERCHANTLANE  and  REACHABLE-BY- 
A-COMBATANT.  For  these  relations*  the  command  looks  like 

WHO  is  INSIDE-A-MERCHANTLANE 


“> 


For  related  queries*  see  WHOSE  and  WHAT. 

(GO  HE1>) 

( (EGP  PRMT  2  > 

(PRIN1 


"WHAT  is 

Format:  WHAT  is  (THE. AN.  A)  <RELATION>  (OF)  <ITEM> 

Example:  WHAT  is  THE  LATITUDE  OF  P0SITI0N0312 

As  with  WHO*  the*  an*  a*  and  of  are  optional,  and  an  item  is 
not  required  with  the  relations  REACHABLE-BY-A-COMBATANT  and 
I NSI DE-A-MERCHANTLANE. 

”  ) 

(GO  HE1)) 

((EGP  PRMT  3) 

(PRIN1 

“WHOSE 

Format:  WHOSE  <RELAT I QN>  is  <ITEM> 

WHOSE  is  roughly  the  inverse  of  WHAT,  eg.  if  WHAT  is  THE 
POSITION  OF  S I GHT I NG0027  is  answered  with  PQSITI0N0026,  then 
WHOSE  POSITION  is  P0SITI0N0026  will  answer  SIGHTING0027. 

“ ) 

(GO  HE1>) 

( ( EGP  PRMT  4 ) 

( PR INI 


“WHERE  is 

Format:  WHERE  is  <OBJECT> 


Example:  WHERE  is  C0NTACT7 


“) 


Acceptable  objects  are  platforms*  merchantlanes.  and  storms. 

(GO  HE1)) 

((EGP  PRMT  5) 

(PRIN1 


“WHY 

Format:  WHY  <NUMBER> 


Example:  WHY  3 
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In  reply  to  WHO*  WHAT*  WHOSE*  and  some  Tell  me  about  questions* 
you  will  be  presented  with  a  numbered  list  of  answers.  To  follow 
the  derivation  of  any  of  these,  ask  WHY  followed  by  the  number 
of  the  answer  of  interest.  You  will  then  be  given  a  list  of 


A 


productions)  if  the  aniutr  uat  deduced  by  the  system  (not  taken  from 

a  message  or  the  technical  data  base).  If  such  a  list  appears# 

you  can  do  a  WHY  to  it  to  view  the  information  which  enabled 

the  rule.  The  chain  of  WHYs  may  be  extended  indef initely.  alternating 

between  data  and  rules.  See  the  OK  and  Zap  commands  for  further 

refinements. 

") 

(GO  HE1)) 

( (EQP  PRMT  6) 

(PRINl 

"Is 

Formats:  Is  ( THE>  A>  AN)  <RELATION>  (OF)  <ITEM>  <ITEM> 

Is  (THE)  <ITEM>  (A,  AN.  THE)  <RELATION>  (OF)  <ITEM> 

Is  (THE)  <PLATFORM>  (A)  <ID  INFO> 

Examples:  Is  THE  LATITUDE  OF  P0SITI0N003S  -1.22 
Is  RADAR  THE  SOURCE  OF  SIGHTING0342 
Is  KYNDA2  HOSTILE 

Is  checks  to  see  if  a  given  assertion  is  in  the  data  base.  A.  an. 

the.  and  of  are  optional.  Is  is  fairly  flexible  in  format,  to 

allow  more  natural  phrasing.  In  addition,  identification 

information  (name,  class,  category,  flag,  medium,  type,  hostility,  etc 

is  directly  available,  without  the  need  to  give  the  intervening 

relation. 

” ) 

(GO  HE1)) 

((EQP  PRMT  7) 

(PRINl 

"Tell  me  about 

Format:  Tell  me  about  CSOMETH I NG> 

Tell  me  about  <GROUP>  <NUMBER> 

Examples:  Tell  me  about  MERCHANTS 
Tell  me  about  RULE  5 

Tell  me  about  is  probably  the  most  flexible  command.  In  the  first 
format,  you  may  ask  about  a  wide  range  of  things,  including 
ITEMS.  PRODUCTIONS  (RULES),  or  any  subtype  (MERCHANTS. 

COMBATANTS.  CONTACTS.  PATROLS).  Using  the  second  format,  you 

may  examine  the  details  of  a  particular  message  or  rule  (production) 

referred  to  by  number. 

"  ) 

(GO  HE1)) 

((EQP  PRMT  8) 

(PRINl 
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"Display  command  level 

Format  and  example:  Display  command  level 

If  you  have  a  display  available,  this  pseudo-query  will  give  access 
to  the  top  level  of  DSPLA,  to  permit  drawing  rhumb  lines  and  such 
like.  If  you  are  running  on  a  Tektronix  in  single  terminal  mode, 
you  will  have  to  give  the  top  level  DSPLA  command  Q  to  return  to 


EXPLAIN. 


"> 


(GO  HE1>) 

( (EQP  PRMT  9) 
(PRIN1 


“OK 

Format  and  example:  OK 


OK  is  a  useful  part  of  the  WHY  feature.  WHY  functions  bg  maintaining 
a  context  stack  of  'active'  answers.  OK  pops  this  stack  to  allow 
gou  to  ask  about  a  different  answer  in  a  list  gou've  alreadg  asked 
WHY  of. 

(GO  HE1)) 

( (EQP  PRMT  10) 

(PRIN1 


"Zap 

Format  and  example:  Zap 


" ) 


Zap  is  the  ultimate  OK.  It  clears  the  WHY  context  stack  completelg. 

(GO  HE1)) 

((EQP  PRMT  11) 

(PRINl 


"HELP 

Format  and  example:  HELP 


"> 


HELP  calls  the  help  function  that  gou 're  presentlg  in. 

(GO  HE1)) 

((EQP  PRMT  12) 

(PRINl 


"  Information  in  the  data  base  is  represented  in  the  form 
<ITEM>  <RELAT I 0N>  <ITEM> 

Most  explanation  facilities  are  geared  to  letting  gou  find  out  what 
is  in  one  of  these  slots*  given  fillers  of  the  others.  For  instance. 

WHO  and  WHAT  return  the  first  ITEM  in  all  assertions  whose  RELATION 
and  second  ITEM  are  those  given.  WHOSE  returns  a  second  ITEM, 
given  a  RELATION  and  a  first  ITEM.  Is  will 

respond  to  the  presence  of  absence  of  a  fullg  specified  assertion  in  the 

data  base. 

EXPLAIN  has  been  designed  to  make  user  interface  relativelg  easg.  At 
most  points,  tgping  ?  will  give  a  list  of  possible  next  entries,  and 
ESC  mag  be  used  to  complete  unambiguous  works,  or  fill  in  unambiguous 
characters.  To  help  the  sgstem  function  properlg.  please  give  it  time 
to  do  its  job.  Unacceptable  characters  are  not  echoed  (the  bell  rings), 
as  is  the  case  with  excessive  tgpeahead.  If  asked  to  Cconfirml.  tgpe  a 
space.  Please  end  questions  with  a  carriage  return. 

") 

(GO  HE1)) 

(T  (PRINl 


91 


"Sorry#  I  don't  understand  what  you  want. 
Pleas*  try  again. 

") 

(GO  HE1 ] ) 


(TELLABT 

[LAMBDA  NIL 

(PROG  (CRSR ) 


<*  NOBIND 

"27-Dec-78  10:13") 


(•  TELLABT  describes*  as 
items  including  oracles< 
basenodes.  ) 


well  as  possible*  various 
productions!  messages#  and 


TLP  (COND 

C (SETQ  CRSR 

( GET AGOOD I E  (APPEND  SUBTYPES  ORACLES  PRODUCTIONS 

BASENODES 

(QUOTE  (THE  ORACLES  PRODUCTIONS 
MESSAGES  MESSAGE 
PRODUCTION  RULE  RULES! 

(T  (RETURN))) 

(COND 

( (MEMB  CRSR  (QUOTE  (THE  the))) 

(GO  TLP)) 

( C MEMB  CRSR  (APPEND  SU8TYPES 

(QUOTE  (SUBTYPES  TYPES  RELATIONS 

ORACLES  PRODUCTIONS 
MESSAGES] 

(TERPRI) 

( CLEARBUF) 

(PRINTLI  (EVAL  CRSR))) 

((MEMB  CRSR  ORACLES) 

(TERPRI) 

(CLEARBUF) 

(PRIN1  "It's  an  oracle#  and  not  printable  (compiled).")) 
((MEMB  CRSR  PRODUCTIONS) 

(TERPRI) 

(CLEARBUF) 

(FANCYPROD  CRSR)) 

((EQ  CRSR  (QUOTE  MESSAGE )) 

CSETQ  CRSR  (CAR  (NTH  MSGS  (RATOM3 
(TERPRI) 

(PRINT  CRSR) 

(CLEARBUF) ) 

( ( EQUAL  CRSR  ( QUOTE  RULES ) ) 

(TERPRI) 

(CLEARBUF) 

(PRINTLI  PRODUCTIONS)) 

((MEMB  CRSR  (QUOTE  (PRODUCTION  RULE))) 

CSETQ  CRSR  (CAR  (NTH  PRODUCTIONS  (RATOM3 
(TERPRI) 

(FANCYPROD  CRSR) 

(CLEARBUF) ) 

(T  (TERPRI) 


L 
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(CLEARBUF ) 

(NICEASSR  (APPEND  (CETPROP  CRSR  (QUOTE  TWO*)) 

(GETPROP  CRSR  (QUOTE  ONE*)) 
(GETPROP  CRSR  (QUOTE  RELATION*} ) 


(WHOl 

C LAMBDA  (FFLG ) 
(PROG  (Tl) 


(•  NOBIND 

"27-Dec-78  10:  18" ) 


(*  WHOl  handles  WHO  and  WHAT  questions  by  use  of 
GOBBLESPEC.  If  GOBBLESPEC  returns  NIL,  WHOl  denies 
knowledge.  ) 


(SETQ  Tl  (GOBBLESPEC)) 

(TERPRI) 

(CLEARBUF) 

(COND 

(Tl  (NICEATOM  Tl)) 

(T  (PR INI  "I  don't  know" > 

(TERPRI 3) 

< WHERE 1 

C LAMBDA  NIL  (*  NOBIND 

"27— Dec— 78  10:37") 

(PROG  (PTM  PPOS)  (*  WHERE 1  locates 

p latf orms, 
merchantlanes.  and 
storms.  ) 

WHLP ( COND 

C (SETQ  PTM  (GETAOOODIE  (APPEND  (QUOTE  (THE  MERCHANTLANES)) 

PLATFORM  MERCHANTLANE  ST0RM3 

(T  (RETURN))) 

(COND 

( (MEMB  PTM  (QUOTE  (THE  the))) 

(GO  WHLP)) 

C ( MEMB  PTM  PLATFORM) 

(TERPRI) 

(CLEARBUF) 

CCOND 

((EQ  PTM  (QUOTE  PERRY)) 

(SETQ  PPOS  (LIST  PERRYLAT  PERRYLON))) 

(T  (SETQ  PPOS  (GETPOS  (CAAR  (RETRIEVE2  (QUOTE 

LAST-SIGHTING) 

PTM3 

(PR INI  "Last  sighted  at  "> 

(PRIN1  (CAR  PPOS)) 

(PRIN1  ",  ") 

(PR INI  (CADR  PPOS)) 

(PRIN1  ".  "> 

(TERPRI) 

(COND  93 

(DSPLAYFLG  (PRIN1  "Would  you  like  a  display?  ") 

(COND 

((MEMB  ( RE ADC ) 


r 


(QUOTE  ( Y  y ) )  ) 

( TEKWAIT ) 

(DSPCMD  (CONCAT  "PTR  PERRY,  "  PTM) ) > 

(T  (TERPRI 3 

C(MEMB  PTM  MERCHANTLANE) 

(TERPRI) 

( CLEARBUF ) 

( PR INI 

“The  following  is  a  list  of  lat-lon  pairs  which  lie  in  the  merchant  lane 

) 

(TERPRI ) 

(PRINT  (GETVERM  PTM)) 

(COND 

(DSPLAYFLG  (PR  INI 

"The  display  will  also  show  the  merchantlane.  " > 
(TERPRI) 

(TEKWAIT) 

(DSPCMD  (CONCAT  “PTR  PL,  "  PTM) 

C ( MEMB  PTM  STORM) 

(TERPRI ) 

(CLEARBUF) 

(PRIN1 

"The  following  is  a  list  of  lat-lon  pairs  defining  the  edge  of  the  storm 

) 

(TERPRI) 

(PRINT  (GETVERS  PTM>> 

(COND 

(DSPLAYFLG  (PRIN1  "Also,  see  the  display") 

(TERPRI) 

(TEKWAIT) 

(DSPCMD  (CONCAT  "PTR  PL. "  PTM1 
C (EG  PTM  (QUOTE  MERCHANTLANES > ) 

CMAPC  MERCHANTLANE  (FUNCTION  (LAMBDA  ( LNM ) 

(PROG  NIL 

(TERPRI ) 

( PR  INI  LNM) 

<  PR  INI 

"  contains  the  following  lat-lon  pairs:") 
(TERPRI) 

(PRINT  ( GETVERM  LNM)) 

(TERPRI 3 

(COND 

(DSPLAYFLG  (PRIN1  "Also,  sec  the  display.") 

(TERPRI) 

(TEKWAIT) 

(DSPCMD  "PTR  PL, MLANE" 3 

(T  (TERPRI) 

(CLEARBUF) 

(PRIN1 

"Expected  a  platform,  merchantlane,  or  storm  name.") 
(TERPRI 3) 


(WHOSE 

C LAMBDA  NIL 


(*  NOBIND 

" 27— Dec -78  10:18") 

(•  WHOSE  gives  a  nicer  ! 


(PROG  (RA  VL> 
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SYSTEM  DEVELOPMENT  CORP  SAN  DIEGO  CA  F/6  17/2 

STAMMER:  SYSTEM  FOR  TACTICAL  ASSESSMENT  of  MULT I SOURCE  MESSAGES— CTC(U) 
MAY  79  R  J  BECHTEL »  P  H  MORRIS  N00123-76-C-0172 


NOSC-TD-252 


way  of  doing  a 
RETRIEVE2B.  ) 


(COND 

( (SETQ  RA  (GETAGOODIE  RELATIONS))) 

(T  (RETURN))) 

(COND 

( ( MEMB  RA  RELATIONS) 

(PRIN1  "is  ") 

(COND 

((SETQ  VL  ( GET AGOOD I E  BASENODES) ) ) 
(T  (RETURN))) 

(TERPRI) 

( CLEAR BUF) 

(NICEATOM  (RETRIEVE2B  RA  VL))) 

(T  (PRIN1  "Expected  a  relation. ") 
(TERPRI 3 ) 


(WHY! 

[LAMBDA  NIL 
(PROG  (PTR) 


(•  NOBIND 

"27-Dec-78  10:20") 


(*  WHY1  provides  the  mechanism  for  exploring  the 
derivation  of  an  assertion.  It  reads  a  number 
(defaults  to  1)  and  uses  that  number  to  select  an 
assertion  or  rule  of  interest.  ) 


(CLEARBUF) 

(SETQ  PTR  (CAR  (LINEREAD) ) ) 

(COND 

((NULL  PTR) 

(SETQ  PTR  1))) 

(CLEARBUF) 

(TERPRI) 

(COND 

( ASTFLG  (SETQ  LARULES 

(CONS  CGETRULES  (SETQ  ACTIVEAS 

(CAR  (NTH  (CAR  LASSERS) 
PTR] 


LARULES) ) 

(NICERULES  (CAR  LARULES))) 

(T  (GETASSRS  ACTIVEAS  (CAR  (NTH  (CAR  LARULES) 

PTR] ) 


( I STUFF 

[LAMBDA  NIL 

(PROG  (CMPR  POSES  ANWR) 


(*  NOBIND 

"27-Dec -78  10:08") 


(*  ISTUFF  handles  questions  like  IS  SIGHTIN027  A 
SIGHTING  OF  RED  and  IS  A  SIGHTING  OF  RED  SIGHTING27. 
It  relies  on  GOBBLESPEC  to  return  a  list  of  possible 
answers  (like  all  sightings  of  RED)*  then  compares 
the  remaining  atom  to  that  list. 

If  the  item  is  not  in  the  list*  ISTUFF  answers 


"not  to  mg  knowledge”, 
appropriate  assertion.  ) 


otherwise  with  GAMF1  of  the 


(COND 

C (SETQ  CMPR  ( GETACOODIE  (APPEND  (QUOTE  (A  AN  THE >  > 

BASE NODES} 

(T  (RETURN))) 

(COND 

C ( MEMB  CMPR  (QUOTE  (THE  A  AN  the  a  an))) 

(SETQ  POSES  (GOBBLESPEC) ) 

(COND 

((SETQ  ANUR  (ASSOC  ( GETAGOODIE  BASENODES) 

POSES) ) 

(TERPRI) 

(CLEARBUF) 

(GAMF1  (CDR  ANUR))) 

(T  (TERPRI) 

(CLEARBUF) 

(PRIN1  "not  to  mg  knowledge”) 

(TERPRI I 

< T  (SETQ  POSES  (GOBBLESPEC)) 

(COND 

((SETQ  ANUR  (ASSOC  CMPR  POSES)) 

(TERPRI) 

(CLEARBUF) 

(GAMF1  (CDR  ANUR))) 

(T  (TERPRI) 

(CLEARBUF) 

(PR INI  "not  to  mg  knowledge”) 

(TERPRI 1 ) 


( RESETUHY 
C LAMBDA  NIL 


(*  NOBIND 

"27— Dec— 78  10:14") 


(*  RESETUHY  changes  the  ASTFLG  and  pops  the 
appropriate  UHY  stack  (either  assertions  or  rules) 
to  back  up  in  a  UHY  descent.  ) 


CCOND 

(ASTFLG  (SETQ  LASSERS  (CDR  LASSERS))) 

(T  (SETQ  LARULES  (CDR  LARULES3 
(SETQ  ASTFLG  (NOT  ASTFLG 3) 

(GOBBLESPEC 
CLAMBDA  NIL 

(PROG  (NXT ) 

(*  GOBBLESPEC  expects  to  see  a  phrase  of  the  form 
<a*  an#  the>  RELATION  <of>  <a.  an.  the>  BASENODE  or 
<a»  an.  the>  PLATFORM  or  INSIDE-A-MERCHANTLANE. 
REACHABLE-BY-A-COMBATANT  or  <id  info>.  then  does  a 
RETRIEVE2  as  appropriate,  and  returns  that  as  the 


(*  NOBIND 

"27-Dec-78  10.04") 


answer.  At  present*  COBBLESPEC  can  only  deal  with  a 
single  relation.  ) 


GSLP (COND 

C (SETQ  NXT  (GETAGOODIE  (APPEND  (QUOTE  (THE  AN  A)) 

TNAME  TTYPE  THOSTILITY 
T AGGRESS I VENESS  TCATEGQRY 
TCLASS  TFLAG  T MEDIUM 
PLATFORM  RELATIONS! 


(T  (RETURN) )> 

CCOND 

( ( MEMB  NXT  (QUOTE  (THE  AN  A  the  an  a>>> 

(GO  GSLP ) ) 

C ( MEMB  NXT  (QUOTE  ( INSIDE-A-MERCHANTLANE 

REACHABLE-BY-A-COMBATANT) ) ) 
(RETURN  (RETRIEVE2  NXT  (QUOTE  DUMMY! 

C ( MEMB  NXT  RELATIONS) 

(RETURN  (PROG  ( AFTR ) 

I  GSLP 

(COND 

I (SETQ  AFTR 

(GETAGOODIE  (APPEND  (QUOTE  (OF)) 

BASENODES! 


(T  (RETURN))) 

(COND 

((MEMB  AFTR  (QUOTE  (OF  of))) 

(GO  IGSLP) ) 

(T  (RETURN  (RETRIEVE2  NXT  AFTR! 

((MEMB  NXT  PLATFORM)  (*  This  handles  WHAT  IS 

RED.  etc.  ) 


(RETURN  (PROG  (ANNS) 
(COND 


((OR  (SETQ 

ANNS 

(RETRIEVE2 

(SETQ 

ANNS 

(RETRIEVE2 

(SETQ 

ANNS 

(RETRIEVE2 

(SETQ 

ANNS 

(RETRIEVE2 

(SETQ 

ANNS 

(RETRIEVE2 

(SETQ 

ANNS 

(RETRIEVE2 

(QUOTE  NAME) 
NXT)  ) 

(QUOTE  CLASS) 
NXT) ) 

(QUOTE 

CATEGORY) 
NXT) ) 

(QUOTE 
HOSTILITY) 
NXT) ) 

(QUOTE  TYPE) 
NXT) ) 

(QUOTE  MEDIUM) 
NXT) ) ) 


(RETURN  ANNS!  (•  The  remaining 


possibilities  concern  id 
information*  e.  g.  IS  THE 
PERRY  HOSTILE) 


(COND 

((MEMB  NXT  T AGGRESS I VENESS) 

(RETURN  (RETRIEVE2B  (QUOTE  WARLIKE) 

NXT))) 

((MEMB  NXT  THOSTILITY)  97 


(RETURN  (RETRIEVE2B 

( ( MEMB  NXT  TMEDIUM) 
(RETURN  (RETRIEVE2B 

((MEMB  NXT  TFLAG) 
(RETURN  (RETRIEVE2B 

((MEMB  NXT  TTYPE) 

(RETURN  (RETRIEVE2B 

((MEMB  NXT  TNAME) 

(RETURN  (RETRIEVE2B 

((MEMB  NXT  TCLASS) 
(RETURN  (RETRIEVE2B 

((MEMB  NXT  TCATEGORY) 
(RETURN  (RETR1EVE2B 


(QUOTE 
NXT) ) ) 

HOSTILITY) 

(QUOTE 
NXT) ) ) 

MEDIUM) 

(QUOTE 
NXT) ) ) 

FLAG) 

(QUOTE 
NXT) ) ) 

TYPE) 

(QUOTE 
NXT)  ) ) 

NAME) 

( QUOTE 
NXT) )  ) 

CLASS) 

(QUOTE 
NXT] ) 

CATEGORY) 

(GETASSRS 

E LAMBDA  (AS  RL) 

(PROG  ( ACTBQX  BOXLST) 


(*  NOBIND 
•27-Dec-78  09: 31") 


(*  GETASSRS  collects  the  assertions  needed  to 
respond  to  a  WHY  question.  Since  a  particular  rule 
may  have  concluded  the  same  thing  in  several  wags, 
the  user  is  given  the  opportunity  to  ask  about  each 
set  of  assertions  separately. 

Only  if  the  user  wishes  to  ask  about  an  assertion  is 
ASTFLC  reset*  otherwise  they  may  then  ask  about 
other  rules. ) 


(SETG  BOXLST  (GETPROP  AS  (QUOTE  DERIVE*))) 

GA1  (COND 

((NULL  BOXLST) 

(RETURN) ) 

(T  (SETQ  ACTBOX  (CAR  BOXLST)) 

(SETQ  BOXLST  (CDR  BOXLST)) 

CCOND 

(CMEMB  RL  (SETQ  ALI  (GETPROP  ACTBOX  (QUOTE  FROM] 
CNICEASSR  (APPEND  (RELDIF  ALI  PRODUCTIONS) 

(GETPROP  ACTBOX  (QUOTE  NECFROM] 

(TERPRI ) 

(PRIN1  "Do  you  want  to  know  about  any  of  these?  "> 
( SELECT Q  (ASHUSER) 

( (Y  y  > 

(CLEARBUF ) 

(SETQ  ASTFLO  T) 

(PRIN1 

"Ask  WHY  about  them  at  the  next  QUESTION. 

98 

(RETURN)) 


(PROCN  (TERPRI) 

(CLEARBUF) 

(SETQ  LAS3ER3  (CDR  LASSERS) > 
(SETQ  A8TFLO  NIL) 

(00  0A1 3 


(GO  GA1 3 ) 


(GETRULES 

C LAMBDA  (ASSRST) 

(PROG  (01  02) 


(•  NOBIND 

"27— Dec— 78  09:32") 


(*  GETRULES  collect*  the  rules  needed  to  answer  a 
WHY  question.  Printing  is  done  in  NICERULE.  ) 


(SETQ  01  (GETPROP  ASSRST  (QUOTE  DERIVE*))) 
(COND 

( (NULL  01) 

(RETURN) ) ) 

GR1  (COND 

((NULL  01) 

(RETURN  (INTERSECTION  PRODUCTIONS  02))) 
(T  (SETQ  02  (APPEND  (GETPROP  (CAR  01) 

(QUOTE  FROM)) 

02)  > 

(SETO  Q1  (CDR  01 )) 

(GO  GRID 


(NEW-LINE 

C LAMBDA  (OLDVARS) 

(PROG  (VARS  ARG1  ARG2  GETVAR  REL  (NEWVARS  O) 
(RTYPE  (QUOTE  RETRIEVE3) ) 

LNE  CNDFLO  UNLESSFLO) 

(SETQ  VARS  OLDVARS) 

(USERQUERY  ST1) 

(RETURN  (LIST  CNDFLO  VARS  LNE 3 ) 

(NEWRULE 

CLAMBDA  NIL 

(PROO  (NE  CNDS  ATS  CONF  LAAT  OV) 

(CONTROL  T) 

(TERPRI) 

(PRIN1  "Rule  name?  ") 

(SETQ  NE  (RATOM)) 

(TERPRI) 

(PRIN1  "Test?" ) 

(TERPRI) 

CONDLOOP 

(CLEARBUF) 

(PRIN1  ") 

(SETQ  LAAT  (NEW-LINE  OV)) 

(COND 

((NULL  (CAR  LAAT))  yy 
(SETQ  ATS  (CADDR  LAAT)) 


(»  NOBIND 

"10-Jan-79  16: IB") 


(GO  OUTERLP > ) 

(T  (SETG  OV  (CADR  LAAT ) ) 

(SETQ  CNDS  (APPEND  CNDS  (CDDR  LAAT))) 

(GO  CONDLOOP))) 

OUTERLP 

(TERPRI) 

(PRIN1  "Confidence?  M) 

(SETQ  CONF  (RATOM)) 

(TERPRI) 

(MAKEPD  ME  CNDS  ATS  CONF) 

(TERPRI) 

(PUTPROP  NE  (QUOTE  WHY) 

"  bicausi  of  a  usir  rule.") 

(SETQ  CONTEXT) 

(COND 

( ( APPLYRULE  NE) 

(PRIN1 

"This  rule  has  an  effect  in  the  existing  database.  ") 
(TERPRI)) 

(T  (PR INI 

"This  rule  has  no  effect  on  the  database  in  it's  present  form.  “) 
(TERPRI))) 

( CONTROL ) 

(RETURN  NED 


(NICE ATOM 

C LAMBDA  (LATS) 

(PROG  ( ( ATCT  1)) 


(*  NOBIND 

"27-Dec -78  10.09") 


(*  NICEATOM  updates  the  WHY  assertion  list  and 
prints  a  list  of  modified  (GAMFed)  atoms.  ) 


(SETQ  LASSERS  (CONS  (MAPCAR  LATS  (FUNCTION  CDR ) ) 

LASSERS) ) 

(SETQ  ASTFLG  T) 

NAT 1 (COND 

((NULL  LATS) 

(RETURN)) 

(T  (PRIN1  ATCT) 

(PRIN1  ".  " ) 

(PRETTY ATOM  (CAR  LATS)) 

(SETQ  ATCT  ( ADD1  ATCT)) 

(SETQ  LATS  (CDR  LATS)) 

(GO  NATH) 


(NICEASSR 

C LAMBDA  (LISTASSER8) 
(PROG  ( ( ASCT  1>) 


(*  NOBIND 

"27-Dec -78  10:08”) 

(•  NICEASSR  updates  the 
WHY  assertion  list  and 
prints  a  list  of 
assertions) 


(TERPRI) 

(SETQ  LASSERS  (CONS  LISTASSERS  LASSERS)) 


NA1  <COND 

((NULL  LISTASSERS) 

(RETURN)) 

(T  (PRIN1  ASCT) 

(PRIN1  M.  ") 

( PRETTYDESCR  (CAR  LISTASSERS)) 
(SETS  ASCT  ( ADD1  ASCT)) 

(SETQ  LISTASSERS  (CDR  LISTASSERS)) 
(GO  NA1 3 ) 


(NICERULES 

CLAMBDA  (RULED 

(PROG  NIL* 


(*  NOBIND 

"27— Dec— 78  10:36") 


(*  NICERULES  updates  the  WHY  rule  list  and  prints  a 
list  of  rule  names.  If  no  rules  were  used  in  a 
derivation>  it  so  states*  and  DOESNOT  reset  ASTFLG.  ) 


(TERPRI) 

CCOND 

((NULL  RULED 
(COND 

( ( MEMB  (CAR  (GETPROP  ACTIVEAS  (QUOTE  RELATION) ) ) 

ORACLES) 

(PRIN1  “The  result  of  an  oracle.") 

(TERPRI) ) 

(T  ( PR INI 

"  Either  taken  directly  from  a  message  or  part  of  the  existing  data  base. 

) 

(TERPRI) 

(RETURN! 

(SETQ  ASTFLG  NIL) 

(PRINTLI  RULEL 1 ) 

(APDES 

CLAMBDA  (ATOMM)  (*  NOBIND 

“27-Dec -78  09:2S“) 

(*  APDES  creates  an  "apt  description"  for  nodes  in 
the  network.  Number  nodes  are  evaluated!  sightings* 
vertices*  and  storm  nodes  are  printed  as  such*  and 
CONTACTS*  etc.  are  printed  without  the  concluding 
s.  ) 


(COND 

( ( MEMB  ATOMM  NUMNUMS) 

(EVAL  ATOMM)) 

C (MEMB  ATOMM  SIOHTINO) 

(PACK  (APPEND  (QUOTE  (SIOHTINO)) 
(CDR  (UNPACK  ATOMM! 

C (MEMB  ATOMM  POSITION)  101 

(PACK  (APPEND  (QUOTE  (POSITION)) 
(CDR  (UNPACK  ATOMM! 


E  < MEMB  ATOMM  VERTEX) 

(PACK  (APPEND  (QUOTE  (VERTEX)) 

(CDR  (UNPACK  ATOMM 3 
C ( MEMB  ATOMM  STORM) 

(PACK  (APPEND  (QUOTE  (STORM)) 

(CDR  (UNPACK  ATOMM 3 
C ( MEMB  ATOMM  SUBTYPES) 

(PACK  (REVERSE  (CDR  (REVERSE  (UNPACK  ATOMM 3 
((EQ  ATOMM  (QUOTE  DUMMY)) 

««  II  J 

(T  ATOMM3 ) 


(UNAPDES 
C LAMBDA 

(PROG 


(FATM)  (*  NOBIND 

"27-Dec— 78  10:16") 

(PLACE)  (*  UNAPDES  takes  an 

"apt  description"  and 
returns  a  network  node. 

(COND 

((NUMBERP  FATM) 

(RETURN  (GET ADUMMYFOR  FATM))) 

((MEMB  FATM  (QUOTE  (SIGHTING  POSITION  VERTEX  STORM))) 
(RETURN  FATM)) 

C ( SETQ  PLACE  (OR  (STRPOS  "SIGHTING"  FATM  NIL  NIL  T  T) 

( STRPOS  "POSITION"  FATM  NIL  NIL  T  T) 

(STRPOS  "VERTEX"  FATM  NIL  NIL  T  T))) 
(RETURN  (MKATOM  (CONCAT  "N"  (SUBSTRING  FATM  PLACED 
C (SETQ  PLACE  (STRPOS  "STORM"  FATM  NIL  NIL  T  T>> 

(RETURN  (MKATOM  (CONCAT  "S"  (SUBSTRING  FATM  PLACED 
(T  (RETURN  FATM 3) 


(GAMF 

C LAMBDA  (WLK) 

(PROO  (CONFI  ACON) 


(*  NOBIND 

“27-Dec -78  09:27”) 


(*  GAMF  generates  an  appropriate  modifier  for  an 
assertion  based  on  the  confidence  of  the  assertion.  ) 


(SETQ  CONFI  (OETCON  WLK)) 

(SETQ  ACON  (ABS  CONFI)) 

(COND 

( (EQP  ACON  1.  O) ) 

( ( FGREATERP  ACON  .98) 

(PRIN1  "definitely  ")) 
((FGREATERP  ACON  .9) 

(PRIN1  "almost  certainly  ”)) 
((FGREATERP  ACON  .7) 

(PRIN1  "very  probably  ")) 
((FGREATERP  ACON  .43) 

(PRIN1  "probably  ")) 

( (EQP  ACON  0.  0) 

(PR1N1  "not  known  to  be  “) 
(RETURN))  102 

(T  (PRIN1  "somewhat  ") 


(COND 

( (FLESSP  CONFI  0.  0) 
(PRIN1  "on"))) 
(PRINl  "likely  to  be  "> 
(RETURN))) 

(COND 

((FLESSP  CONFI  0.0) 

(PRINt  "not  "3) 


(GAMF1 

C LAMBDA  ( ASTR ) 
(PROG  (CF) 


(•  NOBIND 

“27-Dec -78  09:28") 


(*  GAliFl  is  used  to  generate  yes-no  type  answers, 
based  on  the  confidence  of  an  assertion.  ) 


(SETQ  CF  (GETCON  ASTR)) 

(COND 

( (EGP  CF  1.  0) 

(PRINl  "yes”)) 

(  (EGP  CF  O.  O) 

(PRINl  "not  to  my  knowledge")) 
( (EGP  CF  -1.  0) 

(PRINl  “no")) 

(T  (GAMF  ASTR))) 

(TERPRI3) 


(PRETTY ATOM 

CLAMBDA  (PAIR) 

(PROG  NIL 


(*  NOBIND 

"27-Dec -78  10:11") 


(*  PRETTYATOM  prettyprints  an  ^tom  using  GAMF  and 
APDES.  It  expects  a  dotted  pair  - 
atom  .  assertion.  ) 


(GAMF  (CDR  PAIR)) 

(PRINl  (APDES  (CAR  PAIR))) 
(TERPRI3) 


( PRETTYDESCR 
CLAMBDA  (ASR) 

(PROG  (LA  TE  DA) 

CSETQ  LA  (CAR 
CSETQ  TE  (CAR 
CSETQ  DA  (CAR 


(FIND1 

(FIND1 

(FIND1 


(*  NOBIND 

"27-Dec-78  10:12") 

(*  PRETTYDESCR  is  an 
assertion 
prettyprinter.  ) 

(LIST  (QUOTE  ONE*) 

ASR] 

(LIST  (QUOTE  RELATION*) 

A8R3 

(LIST  (QUOTE  TWO*) 

ASR] 


(COND 
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((OR  (NULL  LA) 

(NULL  TE) 

(NULL  DA)) 

(PRIN1  "Information  no  longer  available.  “> 

(TERPRI) 

(RETURN))) 

(PRIN1  (APDES  LA)) 

(PRIN1  "  is  "> 

( GAMF  ASR) 

(COND 

C  (OR  (ORACLE  TE) 

(EG  DA  (QUOTE  DUMMY! 

(COR  (MEMB  TE  (QUOTE  (SIGHTING  VERTEX))) 

(MEMB  DA  SUBTYPES) 

(MEMB  DA 

(QUOTE  (PLATFORM  STORM  MERCHANTLANE  TTYPE 

TMEDl’UM  T AGGRESSIVENESS 
TCATEGORY  TCLASS  THOSTILITY 
TFLAG  TNAME! 

(PR INI  “a  “ )) 

(T  ( PR INI  "the  "))) 

( PR INI  TE) 

(COND 

(COR  (ORACLE  TE) 

(EQ  DA  (QUOTE  DUMMY)) 

(MEMB  DA  SUBTYPES) 

(MEMB  DA 

(QUOTE  (PLATFORM  STORM  MERCHANTLANE  TTYPE 

TMEDIUM  TAGGRESSIVENESS 
TCATEGORY  TCLASS  THOSTILITY 
TFLAG  TNAME ! 

(PRIN1  "  " )) 

(T  (PRIN1  "  of  **))) 

(PR INI  (APDES  DA)) 

(TERPRI!) 

(GETAGOODIE 

C LAMBDA  (LIST A) 

(PROG  (POSIBL  P0S2) 

(*  GETAGOODIE  provides  a  means  of  calling  ASKUSER 
with  a  keylist  to  be  evaaluated. 

GETAGOODIE  also  provides  for  spelling  correction.  ) 


(SETQ  POSIBL  (ASKUSER 

NIL  NIL  NIL  CAPPEND  LISTA 

(QUOTE  ((""  NIL  RETURN 

(PROGN  (SETQ  P0S2 
(RATOM) ) 
NIL! 

T) ) 

(COND  104 

(POSIBL  (RETURN  (UNAPDES  POSIBL))) 

(T  (COND 


(*  NOBIND 

"27-Dec-78  10:26" ) 


( (SETQ  POSIBL  (MISSPELLED?  P0S2  70  LISTA)) 

(RETURN  POSIBL)) 

(T  (TERPRI) 

(PRIN1  "I  have  no  knowledge  of  u) 

(PRIN1  P0S2) 

(TERPRI) 

(RETURN!) 

(PRINTLI 

[LAMBDA  ( XLI )  (*  NOBIND 

"27-Dec— 78  10:13“) 

(PROC  ( (PCT  1))  (*  PRINTLI  print*  a 

llst>  numbering  as  it 
goes.  ) 

PRLP (COND 

((NULL  XLI) 

(RETURN)) 

(T  (PRIN1  PCT) 

(PRIN1  ") 

(PRIN1  (CAR  XLI)) 

(TERPRI) 

(SETQ  PCT  ( ADD1  PCT)) 

(SETQ  XLI  (CDR  XLI)) 

(GO  PRLP!) 

) 

(LOAD  (QUOTE  <PMORRIS>ATN.  COM) ) 

( DECLARE :  DONTCOPY 

(FILEMAP  (NIL  (4686  36330  (EXPLAIN  4698  .  6264)  (HELPEXPLAIN  6268  . 
13018)  (TELLABT  13022  .  14631)  (WHOl  14633  .  13143)  ( WHERE 1  13149  . 

17476)  (WHOSE  17480  .  18034)  (WHY1  18058  .  1B8B6)  ( I STUFF  18890  .  20218) 

(RESETWHY  20222  .  20680)  (GOBBLESPEC  20684  .  24024)  (GETASSRS  24028  . 

23416)  (GETRULES  25420  .  26043)  (NEW-LINE  26047  .  26282)  (NEWRULE  26286 
.  27927)  (NICEATOM  27931  .  28564)  (NICEASSR  28568  .  29141)  (NICERULES 

29145  .  30017)  (APDES  30021  .  31042)  (UNAPDES  31046  .  31786)  ( GAMF  31790 

.  32746)  ( GAMF 1  32730  .  33295)  (PRETTYATOM  33299  .  33724)  (PRETTYDESCR 

33728  .  35088)  (GETAGOODIE  35092  .  35897)  (PRINTLI  35901  .  36347))))) 
STOP 


105 


(FILECREATED  "18-Dec-78  14:27:28"  <PMORRIS>ATN.  LSP.  26  3665 


changes  to:  ADDQKLST  ATNCOMS  USER QUERY 

previous  date:  "15-Dec-78  18:56:50"  <PMORRIS>ATN.  LSP. 23) 


(PRETTYCOMPRINT  ATNCOMS) 

(RPAQQ  ATNCOMS  C(FNS  *  ATNFNS) 

CP  (SETQ  QSCRATCHPTR  (SETQQ  QUERYSCRATCHLST  (?J 
(VARS  ( QSCR ATCHUNUSED  NIL)) 

(BLOCKS  ( ATNBLOCK  ADDQKLST  MKQKLST  USERQUER Y 

(SPECVARS  KEY) 

(LOCALFREEVARS  PTR ) 

(GLOB ALVARS  QUERYSCRATCHLST 
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I 


GSCRATCHPTR 
QSCRATCHUNUSED > 
(ENTRIES  USERGUERY > 
(NOLINKFNS  .  T3) 


(RPAQQ  ATNFNS  ( ADDGKLST  MKGKLST  USERGUERY)) 
(DEFINED 


(ADDGKLST 
[LAMBDA  (K) 

(PRO©  ( (CPTR  (CDR  PTR ) ) ) 

CCOND 

(CPTR  (RPLACA  CPTR  K>> 
(T  (RPLACD  PTR  (CONS  K3 
(SETQ  PTR  (CDR  PTR 3) 


(*  NOBIND 

"  18— D»c-78  12:06") 


(MKGKLST 

[LAMBDA 

(PROG 


( QLST  >  (*  NOBIND 

" 14— D»c— 78  13:03") 

((PTR  GUERYSCRATCHLST)) 

( NCQNC  GSCRATCHPTR  QSCRATCHUNUSED ) 

[MAPC  QLST  (FUNCTION  (LAMBDA  (G) 

(PROG  [(KEYS  (EVAL  (CAR  Q3 
(COND 

((LISTP  KEYS) 

(MAPC  KEYS  (FUNCTION  ADDGKLST))) 

(T  (ADDGKLST  KEYS 3 
(SETG  QSCR ATCHUNUSED  (CDR  PTR>) 

(SETQ  GSCRATCHPTR  (RPLACD  PTR)) 

( RETURN  GUERYSCRATCHLST  3 ) 


(USERGUERY 

[LAMBDA  (I ST ATE) 


(*  NOBIND 

”18— D*c— 78  14:26") 


(PROG  ( (PRINTBUF  "") 

(STATE  I STATE) 

KEYLST  KEY  MATCHED  GUERYLST  NEWSTATE) 

LOOP (COND 

((NULL  STATE) 

(RETURN) ) 

((EG  STATE  T) 

(RETURN))) 

(SETG  GUERYLST  (CADR  STATE)) 

(SETG  KEYLST  (MKGKLST  GUERYLST)) 

ASK  [SETQ  KEY  (RESETFORM  (CONTROL  T) 

(ASKUSER  NIL  NIL  (OR  (CAR  STATE) 

II  II  ) 


KEYLST  T  NIL 

(QUOTE  (CONFIRMFLO  NIL3 

(CLEARBUF) 

(COND 

((EG  KEY  (QUOTE  7) ) 

(TERPRI)  ,07 

(TERPRI) 

(PRIN1  "on«  o#:  ") 


(TERPRI) 

CMAPC  QUERYLST 

(FUNCTION  (LAMBDA  (ALT) 

(PROO  ((KEYTYPE  (CAR  ALT)) 

EK) 

( SETQ  EK  (EVAL  KEYTYPE) ) 

(COND 

C(EQ  (CAR  KEYTYPE) 

(QUOTE  QUOTE)) 

(COND 

( (LISTP  EK) 

( MAPC  EK  (FUNCTION  PRINT))) 
(T  (PRINT  EK] 

((LISTP  EK) 

(PRIN1  “a  “) 

(PRINT  KEYTYPE)) 

<  T  (PRINT  (MKATOM  EK] 

(TERPRI ) 

( PRIN1  PRINTBUF ) 

(GO  ASK))) 

CSETQ  MATCHED 
(CAR 

(SOME  QUERYLST 

(FUNCTION  (LAMBDA  (ALT) 

(PROG  C (ECA  (EVAL  (CAR  ALT] 

(RETURN  (COND 

C (LISTP  ECA) 

(OR  (MEMB  KEY  ECA) 

(EQ  (CAR  ECA) 

(CHARACTER  27] 
(T  (EQ  KEY  (MKATOM  EC AD 

(PR INI  (OR  (CADDDR  MATCHED) 

"")  ) 

(EVAL  (CADDR  MATCHED)) 

(SETQ  PRINTBUF  (CONCAT  PRINTBUF  (CAR  STATE) 

KEY 

(OR  (CADDDR  MATCHED) 

(SETQ  NEWSTATE  (EVAL  (CADR  MATCHED))) 

CSETQ  STATE  (COND 

((NUMBERP  NEWSTATE) 

(NTH  STATE  ( I PLUS  NEWSTATE  NEWSTATE  3) > ) 
(NEWSTATE) 

(T  (CDDR  STATED 
(GO  LOOP]) 

) 

(SETQ  QSCRATCHPTR  (SETQQ  QUERYSCRATCHLST  (?))) 

(RPAQ  QSCRATCHUNUSED  NIL) 

C DECLARE:  DONTEVALtLOAD  DOEVAL&COMPILE  DONTCOPY 
(BLOCK:  ATNBLOCK  ADDQKLST  MKQKLST  USERQUERY  (SPECVARS  KEY) 
(LOCALFREEVARS  PTR) 

(GLOBAL VARS  QUERYSCRATCHLST  QSCRATCHPTR  QSCRATCHUNUSED) 
(ENTRIES  USERQUERY) 

(NOLINKFNS  .  T) )  108 


(DECLARE.  DONTCOPY 

(FILEHAP  (NIL  (608  3331  (ADDQKLST  620  .  886)  < MKQKLST  890  .  1388)  ( 

USERQUERY  1392  .  3328))))) 

STOP 
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